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PREFACE 
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(EEIMC) , 1842  EEG.  were  the  task  project  engineers  and  provided  overall 
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The  RADC  Post-Doctoral  Program  is  a cooperative  venture  between  RADC 
and  some  sixty-five  universities  eligible  to  participate  in  the  program. 
Syracuse  University  (Department  of  Electrical  Engineering) , Purdue  Univer- 
sity (School  of  Electrical  Engineering),  Georgia  Institute  of  Technology 
(School  of  Electrical  Engineering),  and  State  University  of  New  York  at 
Buffalo  (Department  of  Electrical  Engineering)  act  as  prime  contractor 
schools  with  other  schools  participating  via  sub-contracts  with  prime 
schools.  The  U.S.  Air  Force  Academy  (Department  of  Electrical  Engineering), 
Air  Force  Institute  of  Technology  (Department  of  Electrical  Engineering), 
and  the  Naval  Post  Graduate  School  (Department  of  Electrical  Engineering) 
also  participate  in  the  program. 

The  Post-Doctoral  Program  provides  an  opportunity  for  faculty  at 
participating  universities  to  spend  up  to  one  year  full  time  on  explora- 
tory development  and  problem-solving  efforts  with  the  post-doctorals 
splitting  their  time  between  the  customer  location  and  their  educational 
institutions.  The  program  is  totally  customer -funded  with  current  pro- 
jects being  undertaken  for  Rome  Air  Development  Center  (RADC),  Space  and 
Missile  Systems  Organization  (SAMSO) , Aeronautical  System  Division  (ASD) , 
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Electronics  Systems  Division  (ESD) , Air  Force  Avionics  Laboratory  (AFAL) , 

Foreign  Technology  Division  (FTD) , Air  Force  Weapons  Laboratory  (AFWL) , 

Armament  Development  and  Test  Center  (ADTC) , Air  Force  Communications 
Service  (AFCS) , Aerospace  Defense  Command  (ADC) , HQ  USAF , Defense  Com- 
munications Agency  (DCA) , Navy,  Army,  Aerospace  Medical  Division  (AMD), 
and  Federal  Aviation  Administration  (FAA) . 

Further  information  about  the  RADC  Post-Doctoral  Program  can  be 
obtained  from  Mr.  Jacob  Scherer,  RADC/RBC,  Griffiss  AFB,  NY,  13441, 
telephone  Autovon  587-2543,  Commercial  (315)  330-2543. 
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1.  GENERAL  L. SCRIPTION 

1 . 1 Purpose  of  the  Program  Maintenance  Manual 

The  objective  of  this  Computer  Program  Maintenance  Manual  for  the  An- 
tenna Pattern  Distortion  Computer  Program  is  to  provide  the  maintenance  pro- 
grammer personnel  with  the  information  necessary  to  effectively  maintain 
the  system. 

1 . 2 System  Application 

The  Antenna  Pattern  Distortion  Computer  Program  calculates  antenna 
coupling  coefficients,  vertical  and  horizontal  radiation  patterns,  communi- 
cation range  contour  and  pattern  distribution  of  antenna  farms  such  as  those 
found  in  many  AF  air-to-ground  communication  stations. 

1 . 3 Equipment  Environment 

1.3.1  Computer.  Honeywell  6180,  GCOS  SRH.2  and  HP  7202A  Graphic  Plotter. 

1.3.2  Input/Output  Devices.  (a)  on-line  disks 

(b)  terminal 

Keyboard 

Printer 

Plotter 

1 . 4 Program  Environment 

1.4.1  Programming  Language.  With  the  exception  of  three  GMAP  (Honeywell 
DD08A)  subroutines,  YSFUTL,  PACK,  DIMXXX,  all  programs  and  subroutines  are 
written  irt  series  60  (level  66)/6000  FORTRAN  (Honeywell  DD-02) 

1.4.2  Mode  of  Processing 

The  program  is  in  the  time  sharing  mode  for  the  input ing  of  data. 
Although  the  main  calculations  have  to  be  done  in  the  remote  batch  mode 
(CARDIN),  this  is  completely  transparent  to  the  user  since  the  CARDIN  JOB  is 


spawned  by  the  time-sharing  program  with  the  use  of  specially  written 
utility  subroutines. 

The  subsystems  /RAD 10/ DISTORT  and  /RADIO/DISTORTP  have  been  compiled 
and  are  stored  in  files  with  these  names  in  the  user  library  of  AFCS.LIB  so 
that  they  can  be  accessed  as  follows: 

a.  In  response  to  "SYSTEM?"  type  FORT  NEW 

b.  The  computer  will  print 

READY 

* 

c.  Type  RUN  AFCS. LIB/RADIO/DISTORT  (or  RUN  AFCS. LIB/RADIO/DISTORTP) 

d.  The  program  will  then  start  asking  questions. 

2.  SYSTEM  DESCRIPTION 
The  system  consists  of  three  subsystems 

a)  Subsystem  /RADIO/DISTORT 

b)  Subsystem  /RADIO/USA 

c)  Subsystem  /RADIO/DISTORTP 

d)  Utility  packages. 

2.1.1  Subsystem  /RADIO/DISTORT 

This  system  consists  of  a series  of  time-sharing  programs  that  accept 
the  necessary  input  data  from  the  terminal,  process  it  and  generate  a file 
that  will  be  used  by  the  /RADIO/USA  subsystem. 

2.1.2  Subsystem  /RADIO/USA 

This  subsystem  consists  of  a series  of  batch  programs  that  accept  the 
output  generated  by  /RADIO/DISTORT  and  carries  out  all  the  computations  to 
provide  the  requested  outputs.  This  subsystem  is  spawned  by  the  time- 


sharing  /RADIO/DISTORT  through  callable  routines  of  the  utility  packages. 


2.1.3  Subsystem  /RADIO/DISTORTP 

This  subsystem  consists  of  a series  of  time-sharing  programs  that 
accept  the  output  generated  by  /RADIO/USA  and  produces  a plot  on  the 
HP  7202A  graphic  plotter 

2.2  Detailed  Description 

Each  of  the  subsystems  contain  the  following  functions/  subroutines. 

Subsystem  Function/Subroutine 

/RADIO/DISTORT  LINKMN 

LINKM1 
LINKM2 
LINKM3 

/RADIO/USA  DIMXXX 

MAIN 
PATT 
FUN 
ELE 
ELK 
PXYZ 
QZP 
NPAT 
PATD 

/RADIO/DISTORTP  DSTPLT 

PPLOT 

LABEL 

i 
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Function/Subroutine 


Subsystem 

Utility  Packages  YSFUTL 

PACK 

2.2.1  Subroutine  LINKMN 

[1]  Description:  This  is  the  resident  time-sharing  program  that 
controls  the  link/overlays  LINKM1,  LINKM2,  LINKM3  in  and  out  of  core.  At 
the  beginning  it  creates  two  temporary  files  01  and  02.  File  01  will  hold 
the  data  that  will  be  used  by  the  subsystem  /RADIO/USA.  File  02  will 
contain  the  $LIMITS  and  $PRMFL  statements  required  to  run  /RADIO/USA.  It 
also  attaches  the  file  BLA00001  /RADIO  /NORUN  that  keeps  track  of  the  numbers 
of  the  executed  runs  (NORUN). 

[2]  Language:  TSS  FORTRAN 

[3]  Input:  Terminal 

[4]  Output:  Terminal 

2.2.2  Subroutine  LINKM1 

[1]  Description:  This  time  sharing  program  asks  all  the  pertinent 
questions  with  regard  to  the  calculation  of  antenna  patterns,  coupling 
coefficients,  pattern  distributions,  or  communication  range  contour.  If 
the  user  responses  are  outside  certain  specified  ranges,  the  program  will 
print  an  error  message  and  asks  the  question  again  until  an  acceptable 
response  is  entered. 

[2]  Language:  TSS  FORTRAN 

[3]  Input:  Terminal 

f 4]  Output:  terminal 

[51  Called  by:  resident  subroutine  LINKMN 
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2.2.3  Subroutine  LINKM2 


[1]  Description:  This  time-sharing  program  asks  questions  about 
the  site  parameters  and  topographical  data  for  the  calculation  of  the 
communication  range  contours  in  a similar  fashion  as  LINKM1.  When  all 
the  pertinent  data  is  entered,  it  prints  out  a summary  of  all  the  data 
entered  in  LINKM1  and  LINKM2  for  verification  by  the  user. 

[2]  Language:  TSS  FORTRAN 

[3]  Input:  Terminal 

[A]  Output:  Terminal 

[5]  Called  by:  resident  subroutine  LINKMN. 

2.2.4  Subroutine  LINKM3 

[1]  Description:  This  time-sharing  program,  using  the  information 
of  LINKM1  and  LINKM2 , generates  the  necessary  data  to  be  used  by  the 
batch  programs  and  writes  it  in  the  temporary  file  01.  It  also  calcu- 
lates th  i necessary  size  to  be  used  in  the  variable  dimension  statements, 
the  amount  of  core  required,  as  well  as  an  estimate  of  the  running  time. 
This  information  is  printed  out  and  is  also  written  in  the  proper 
$LIMITS  and  $PRMFL  cards  of  file  02.  Next  the  file  BLA00001/DISTRT/ 
NORUN  is  created.  This  file  will  hold  the  input  data  for  the  plotter 
subsystem  /RADIO/DI STORTP . LINKM3  then  calls  the  CARDIN  system  and 
initiates  the  batch  portion  of  the  /RADIO/DISTORT  subsystem  through 

the  JOB  control  file  /RADIO/USA. RUN1 

[2]  Language:  TSS  FORTRAN 

[3]  Input:  data  generated  by  LINKM1  and  LINKM2  through  COMMON 
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[4]  Output:  Terminal  Printer 


Temporary  Files  01  and  02 
[5]  Called  by:  resident  subroutine  LINKMN 

2.2.5  Subroutine  DIMXXX 

[1]  Description:  This  batch  program  defines  the  size  of  the  variable 
dimension  statements  of  the  MAIN  subroutine  and  allocates  the 
necessary  core. 

[ 2 ] Language : GMAP 

[3]  Input:  data  generated  by  the  TSS  programs 

[4]  Output:  DIMENSION  OF  ARRAYS  Cl  and  C2  of  MAIN 

[5]  Called  by:  LINKM3. 

2.2.6  Subroutine  MAIN 

[1]  Description:  This  batch  program  calculates  all  that  is  requested 
by  the  user.  To  do  this,  it  uses  a series  of  subroutines/ 
functions  which  are  described  below. 

[2]  Language:  FORTRAN 

[3]  Input:  Temporary  file  01  and  permanent  file  /RADIO/ (f ilename) 

created  by  another  AFCS  program  called  SCREEN.*  (filename) 
was  assigned  to  this  file  at  the  time  SCREEN  was  run. 

[4]  Output:  File  02  (/DISTRT/XXXX)  where  XXXX  is  a number  internally 

generated  by  LINKM3  to  identify  the  run. 

[5]  Called  by  Printer  DIMXXX 

*User  manual  for  SCREEN  system  (DSD  M057)  March  1976 
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2.2.7  Subroutine  PATT 


[1]  Description:  This  batch  program  calculates  the  radiation  patterns 

and  the  communication  range  contours 

[2]  Language:  FORTRAN 

[3]  Input:  /RADIO/ (f ilename) 

COMMON  and  arguments  from  MAIN 

[4]  Output:  File  02  (/DISTORT/XXXX)  and  the  printer 

Argument-AMAX 
COMMON  - AZ 

[5]  Called  by  MAIN 

2.2.8  Subroutine  FUN 

[1]  Description:  This  batch  program  performs  numerical  Integration 
by  the  trapezoidal  rule. 

[ 2 ] Language : FORTRAN 

[3]  Input  Arguments:  DD,  DE,  Y9,  NDIM 

[4]  Output  Argument:  SUM 

[5]  Called  by:  MAIN 

2.2.9  Function  ELE 

[1]  Description:  This  batch  program  performs  the  numerical  integra- 
tion of  elliptic  integrals  of  the  second  kind. 

[2]  Language:  FORTRAN 

[3]  Inpur  Argument:  P 

[4]  Output:  Return  value  to  MAIN 

[5]  Called  by:  MAIN 
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2.2.10  Function  ELK 


[1]  Description:  This  batch  program  performs  the  numerical  integration 
of  elliptic  integrals  of  the  first  kind. 

[ 2 ] Language : FORTRAN 

[3]  Input  Argument:  P 

[4]  Output:  return  value  to  MAIN 

[5]  Called  by:  MAIN 

2.2.11  Subroutine  PXYZ 

[1]  Description:  In  order  to  perform  all  desired  calculations  every 
antenna  has  to  be  subdivided  into  small  subsections.  This  program 
computes  the  coordinates  of  the  end  points  of  each  of  test 
subsections . 

[2]  Language:  FORTRAN 

[3]  Input:  Temporary  file  01 

COMMON 

[4]  Output:  COMMON  (IT,  X,  Y,  Z ,X1,  Yl,  Zl) 

[5]  Called  by  MAIN 

2.2.12  Subroutine  QZP 

[1]  Description:  This  batch  program  calculates  the  redundant 
elements  of  the  impedance  matrix. 

[ 2 ] Language : FORTRAN 

[3]  Input:  Arguments 

COMMON 


[4]  Output:  Argument  MZ 


[5]  Called  by:  MAIN 


2.2.13  Subroutine  NPAT 

[1]  Description:  This  batch  program  normalizes  the  radiation 
pattern  to  its  maximum  value. 

[2]  Language:  FORTRAN 

[3]  Input:  Arguments  AINT,  AZ,  AMAX,  AIT 

COMMON 

[4]  Output:  File  02  (/DISTRT/XXXX) 

Arguments:  ATH,  FM,  FDB,  I 

[5]  Called  by:  MAIN 


2.2.14  Subroutine  PATD 


[1]  Description:  This  batch  program  calculates  the  pattern  distri- 
bution of  normalized  horizontal  patterns. 

[2]  Language:  FORTRAN 

[3]  Input  Arguments:  DPER,  IDB,  NFD,  AZ 

[4]  Output:  File  02  (/DISTRT/XXXX) 

Arguments:  P,G,  or  P,  G,  H or  P,  H 

[5]  Called  by  MAIN 

2.2.15  Subroutine  DSTPLT 

[1]  Description:  This  time-sharing  program  was  developed  by  AFCS 

personnel.  It  controls  the  HP7202A  graphic  plotter  and  produces 
a plot  of  the  horizontal  and  vertical  patterns  calculated  by 
the  subsystem  /RADIO/DISTORT 
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[2]  Language:  FORTRAN 

[3]  Input:  File  (DISTRT/XXXX) 

[4]  Output:  Plotter  (HP  7202A  graphic  plotter) 

Terminal 

[5]  Called  by:  /RADIO/DISTORTP  subsystem 

2.2.16  Subroutine  PPLOT 

[1]  Description:  This  time-sharing  program  was  developed  by  AFCS 
personnel.  It  calculates  the  (X,Y)  coordinates  of  the  points 
to  be  plotted. 

[ 2 ] Language : FORTRAN 

[3]  Input:  Arguments 

[4]  Output:  Plotter  (HP  7202A  graphic  plotter) 

Terminal 

[5]  Called  by:  DSTPLT 

2.2.17  Subroutine  LABEL 

[1]  Description:  This  time-sharing  program  was  developed  by  AFCS 
personnel.  Its  function  is  to  generate  alphanumerics  on 

HP  7202A  graphic  plotter. 

[ 2 ] Language : FORTRAN 

[3]  Input:  Argument  INPTFILE 

COMMON 

[4]  Output:  Plotter  (HP  7202A  graphic  plotter) 

[5]  Called  by:  DSTPLT 
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2.2.18  Utility  Package  YSFUTL 
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[1]  Description:  This  utility  package  was  developed  by  AFCE  personnel 
and  is  designed  to  be  used  as  a subroutine  for  TSS  FORTRAN  programs. 
It  performs  miscellaneous  worthwhile  functions  which  are  difficult 
or  impossible  to  pull  off  without  the  aid  of  such  a subroutine. 
There  are  eight  entry  points  to  this  routine,  the  characteristics 
of  which  are  described  below. 

a)  Call  FLGBRK  (FLAG) 

Where  FLAG  is  a logical  variable,  will  allow  recovery  from  breaks  during 
execution.  When  FLGBRK  is  called,  FLAG  will  be  set  to  the  logical  value 
FALSE.  If  a break  occurs  subsequently,  the  logical  variable  FLAG  will 
be  set  to  TRUE  to  indicate  recognition  of  a break.  Fhis  FLAG  may 
be  tested  by  the  calling  routine  at  any  time,  and  any  appropriate 

action  taken.  To  portect  the  user  against  infinite  loops,  however, 
breaks  are  counted  as  they  are  received;  if  twenty  or  more  breaks 
are  recognized,  execution  is  temporarily  suspended  and  the  following 
message  appears  — 

*BREAK  STOP  OR  CONTINUE 

At  this  point  the  user  may  enter  any  of  three  responses: 

S will  immediately  terminate  the  program 
A will  terminate  the  program  with  a DRL  ABORT 
C will  reset  counters  and  continue  execution 

Note:  The  DRL  report  allows  dumping  the  subsystem  to  a file  for 

debugging  purposes. 


b)  Call  BRKOFF 


( 


Calling  this  entry  point  nullifies  the  effects  of  a previous  call  to 
FLGBRK. 

c)  Call  KEYOT 

Calling  this  entry  point  will  force  any  output  accumulated  by  the  sub- 
system to  be  output.  This  is  of  significance  whenever  small  amounts  of 
output  are  being  generated,  with  extended  processing  intervening.  If 
this  function  is  not  used,  in  such  a case  the  output  will  not  be  printed 
until  the  executive's  buffer  fills,  or  input  is  requested,  either  of 
which  might  not  occur  for  a long  time, 

d)  Call  KEYIN  (BUFFIN) 

This  entry  point  allows  the  user  to  retrieve  the  last  line  of  input  so 
long  as  it  remains  available.  Thus  it  effectively  functions  as  a back- 
space command  for  the  teletype.  The  input  is  placed  in  the  Array, 

BUFF,  in  21A4  format.  N is  an  integer  variable  into  which  will  be 
placed  the  number  of  characters  transmitted.  Note  that  N may  be 
zero,  indicating  that  the  data  is  no  longer  available  due  to  inter- 
vening output.  The  data  placed  in  BUFF  is  not  edited  or  blank  filled 
in  any  way,  and  will  include  a carriage  return  character  at  the  end 
of  the  line.  N Includes  the  carriage  return. 

e)  Call  CALLTS  (SSNAME,  LINE,  NCHAR) 

This  entry  point  allows  the  user  to  place  data  in  the  KIN  buffer  or 
call  another  TSS  subsystem  or  both.  If  a subsystem  is  to  be  called, 


'imUrar  • • ~t* ' 
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the  first  fonr  characters  of  the  subsystem  name  should  be  placed 
In  the  ASCII  variable  SSNAME.  If  SSNAME  contains  all  blanks  or  Is 
an  Integer  zero,  the  subsystem  call  will  be  bypassed.  If  data  Is 
to  be  placed  In  the  KIN  buffer,  the  count  of  characters  to  be  moved 
should  be  placed  in  the  integer  variable  NCHAR  and  the  ASCII  array,  LINE 
should  contain  the  data  to  be  placed  in  the  buffer  in  21A4  format. 

Up  to  81  characters  may  be  placed  in  the  buffer  in  this  manner.  If 
NCHAR  is  zero,  this  function  will  be  bypassed.  As  an  example  of 
usage  of  this  function,  assume  the  user  wishes  to  obtain  the  status 
of  a batch  job  with  the  SNUMB  1234T.  The  command  at  system  level 
would  be:  JSTS  1234T<CR>.  This  may  be  accomplished  by  the  TSS 
FORTRAN  program  by  placing  the  subsystem  name  (JSTS)  in  SSNAME. 

Placing  the  command (JSTS  1234T<CR>)  in  line  and  the  character  count 
(11)  in  NCHAR.  The  JSTS  subsystem  is  then  called  to  produce  the 
job  status  message. 

f)  Call  ULASCI  (ARRAY, CPOS, NCHAR, L) 

This  entry  point  is  used  to  force  ASCII  data  in  an  array  to  upper  case 
or  lower  case  ASCII  code.  This  is  occasionally  useful,  inasmuch  as 
most  teletypes  transmit  only  upper  case,  and  certain  pieces  of  software 
(TSS  FORTRAN,  for  example)  recognize  only  upper  case  ASCII,  whereas 
lower  case  is  somewhat  easier  to  work  with  and  hence  is  required  by 
other  timesharing  software.  ULASCI  will  transliterate  either  way. 

The  data  in  the  ASCII  array,  ARRAY,  is  acted  upon,  starting  at 
character  position  CPOS  (INTEGER)  with  NCHAR  characters.  If  L is 
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in  the  same  way  as  in  the  standard  TSS  subroutines,  Get  //C,  Put  // C and 
Move  //S. 


g)  Call  BCDASC  (FROM,  IPOS,  TO,  JPOS,NCHAR,FILL) 

h)  Call  ASCBCD  (FROM,  IPOS,  TO,  JPOS,NCHAR,FILL) 

These  two  routines  function  as  a move  // S with  transliteration  as  indi- 
cated. IPOS  and  JPOS  are  starting  character  positions  in  FROM  and  TO, 
respectively.  Bear  in  mind  that  there  are  4 ASCII  characters  per  word, 
and  6 BCD  characters  per  word.  FILL  is  a blank  fill  control.  If  the 
integer  variable  fill  is  zero,  the  array,  TO,  is  not  blank-filled.  If 
FILL  is  nonzero,  the  last  receiving  word  of  the  array  will  be  blank- 
filled. 

[2]  Language:  GMAP 

[3]  Input:  Arguments 

[4]  Output:  Return  Arguments 

[5]  Called  by:  LINKM3,  DSTPLT 

2.2.19  Utility  Package  PACK 

[1]  Description:  This  utility  package  was  developed  by  AFCS 
personnel  to  manipulate  character  strings.  It  contains 
three  entry  points  UNPACK,  PACK,  and  MOVE  which  are  described 
below. 

UNPACK  is  used  to  convert  a packed  character  string,  in  either  BCD 
or  ASCII,  into  an  unpacked  character  string  (one  character  per  word, 
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left  justified,  with  trailing  blanks  in  each  word)  of  the  same  mode 
(BCD  or  ASCII).  The  calling  sequence  is: 


CALL  UNPACK (LINE, I, ARRAY, J,N) 

where  LINE  is  the  packed  character  string,  and  ARRAY  is  the  unpacked 
character  string.  N characters  are  moved,  starting  with  the  Ith  character 
of  LINE  and  the  Jth  character  of  ARRAY.  The  mode  of  the  character  strings 
is  assumed  to  be  ASCII;  this  may  be  altered  as  follows: 

CALL  UNPACK ( ,0)  changes  the  mode  to  BCD 

CALL  UNPACK(  ,1)  changes  the  mode  back  to  ASCII. 

PACK  has  the  opposite  effect  of  UNPACK;  it  moves  characters  from  the  first 
to  third  arguments,  packing  them  as  it  goes.  MOVE  moves  a packed  string 
from  the  first  to  third  arguments.  PACK  and  MOVE  each  have  a sixth  argu- 
ment which,  if  nonzero,  causes  the  last  word  into  which  data  was  moved 
to  be  filled  with  blanks  to  the  end  of  the  word.  Calling  PACK  or  MOVE 
with  a null  first  argument  will  set  the  mode  (BCD  or  ASCII)  as  above; 
the  mode  currently  in  effect  applies  to  all  three  entry  points. 

[ 2 ] Language : GMAP 

[3]  Input:  Arguments 

[4]  Output:  As  described  above 

[5]  Called  by:  DSTPLT 

3.  INPUT/OUTPUT  FILES  DESCRIPTION 
3.1  General  Description 

In  order  to  communicate  among  the  various  systems  used  here,  a 
series  of  temporary  and  permanent  files  have  to  be  created.  A list  of 
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these  files  with  a description  of  their  purpose  follows: 


3.1.1  List  of  Files 

The  list  of  the 
or  used. 

03  / RADIO/NORUN 

01 


02 


DISTRT/XXXX 

/RADIO/USA. RUN1 

/RADIO/IDENT 

RADIO/ (f ilename) 


files  is  presented  in  the  order  they  are  created 

Permanent  file  where  the  numbers  of  the  different 
runs  are  stored  for  reference  with  the  output 
data  and  plots  attached  by  LINKMN 
Temporary  file  created  by  LINKMN  to  save  all  the 
data  computed  by  /RADIO/DISTORT  time-sharing 
subsystem  to  be  used  by  the  batch  /RADIO/US', 
subsystem. 

Temporary  file  created  by  LINKMN  where  the 
$LIMITS  and  $PRMFL  cards  required  by  /RADIO/USA 
are  stored.  These  statements  are  written  by 
LINKM3 . 

Permanent  file  created  by  LINKM3  that  will  be 
used  by  /RADIO/USA  as  its  output  file.  XXXX 
is  the  number  of  the  run  stored  in  /DISTRT/NORUN . 
Permanent  file  containing  all  the  necessary  job 
stream  cards  and  files  to  run  /RADIO/USA 
Permanent  file  that  has  the  $IDENT  card.  The 
reason  for  this  is  so  that  it  can  be  altered  by 
different  users. 

Permanent  file  created  by  the  AFCS  system  SCREEN 
where  all  the  pertinent  topographical  data  of  a 


16 


site  designated  by  (filename)  is  stored.  This 
site  is  used  by  RADIO/USA  to  calculate  communi- 
cation range  contours. 


3.1.2  Detailed  File  Description 
3. 1.2.1  Pile  03  /RADIO/NORUN 

[1]  File  Content:  This  file  contains  the  numbers  assigned  to  the 
different  runs  for  identification  purposes. 

[2]  Written  by:  LINKM3 

[3]  Read  by:  LINKM3 

[A]  File  Type:  Sequential 
[5]  File  Mode:  Binary 

$: PRMFL: 03,W/R,R,  BLA00001 /RADIO/ (filename) 

[2]  Written  by:  LINKM3 

[3]  Read  by:  /RADI0/USA.RUN1 

[4]  File  Type:  Sequential 

[5]  File  Mode:  ASCAII 

3. 1.2. 2 File  01 

[1]  File  Content:  This  file  contains  the  output  of  the 
/RADIO/DISTORT  time-sharing  system. 

[2]  Written  by:  LINKM3 

[3]  Read  by:  /RADIO /USA 
[A]  File  Type:  Sequential 
[5]  File  Mode:  ASCII 
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3. 1.2. 3 File  02 


[1]  File  Content:  This  file  contains  the  $LIMITS  and  $PRMFL 
cards  necessary  to  run  /RADIO/USA.  It  can  have  at 
most  the  following 
$: LIMITS: XX, XXXK,  10K 
$ : PRMFL : 02 , W, S , BLA00001 /DISTRT/XXXX 
3. 1.2. A File  / DISTRT/XXXX 

[1]  File  Content:  This  file  contains  the  output  of  the  batch 
/RADIO/USA  subsystem  to  be  used  by  the  /RADIO/DISTORTP  subsystem. 

[2]  Written  by:  MAIN,  PATT,  NPAT,  PATD 

[3]  Read  by:  DSTPLT 

[4]  File  Type:  Sequential 

[5]  File  Mode:  Binary 

[6]  Record  Length:  Variable 

[7]  Record  Format: 

Record  Type  DATA 


1 ANT# (FED) , FREQ (MHZ) 

2 EMAX, GAIN, GAIN (DB) 

3 THETA  or  PHI,  NMAG.NMAG(dB) 

4 PHI  (vertical  pat.) 

5 THETA  (horizontal  pat.) 

3. 1.2. 5 File  / RADIcyuSA.RUNl 

[1]  File  Contents:  This  file  contains  the  necessary  JCL  to  run 
/RADIO/USA.  A listing  of  this  file  looks  like 
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SYSTEM  ?LIST  /RAD  I O/USA .RUNl 


r 


'#AS  IS  N 

SELECTA  BLAOOOOI /RADIO/IDENT 
OPTION  FORTRAN 


LIBRARY  LB 
USE 

ENTRY  

EXECUTE  DUMP 
SELECTA  02 

DATA  0 1 
SELECTA  01 

PRMFL  LB«ft jR'BLAOO  00 1 /RAD  10/USA 
END  JOB 


[2]  Written  by:  Created  by  the  user 

[3]  Read  by:  LINKM3 

[A]  File  Type:  Sequential 
151  File  Mode:  ASCII 


3. 1.2. 6 File  /RADIO/IDENT 

[1]  File  Content:  This  file  contains  the  $IDENT  card  to  allow 
different  users  to  modify  it  easily: 

* IDENT  BLAOOOOI »PERINI-SUr 956700160121 ^DISTORT 

[2]  Written  by:  Created  by  the  user 

[3]  Read  by:  /RADIO/T’SA.RUNl 

[4]  File  Tyne:  Sequential 

[5]  File  Mode:  ASCII 

3. 1.2. 7 File  RADIO/ (filename) 

[1]  File  Content:  This  file  contains  the  topographical  data  of 


the  site  identified  by  (filename).  This  file  is  created  by 


the  AFCS  system  SCREEN. 

[2]  Written  by:  SCREEN  System  (AFCS) 

[3]  Read  by:  PATT 

[4]  File  Type:  Random 

[5]  File  Mode:  Binary 

[6]  Record  Length:  9 words 

[7]  Record  Format: 


Field  Name 

Content  Description 

ZZ 

Azimuth  in  radians 

ELANG 

Elevation  Angle  in  radians 

DIST 

Distance  to  screen  in  feet 

RNG(l) 

• 

• 

• 

• 

Ranges  in  nautical  miles 

• 

RNG(6) 

4.  PROGRAM  ASSEMBLING,  LOADING,  AND  MAINTENANCE  PROCEDURES 


4.2.1  List  of  /RADIO/ JOB 


10$ 

ident 

BL AO D001#prRIHI-S», 95670 9 160 121, RADIO 

20S 

filedit 

SOURCE, NOSJKCI, UPDATE 

30$ 

LIMITS 

1, , , 9K 

uo$ 

P R M F L 

M*,R,S,BLAD0001 /radio/radar 

50$ 

mi 

K* , D 1 SR , 6L 

60$ 

DAT* 

*C,  , COPY 

70$ 

MODIFY 

SOURCE,  .DSTRTP 

• 0$ 

roriRAn 

ASCII,  NrORM, NINO, OpTZ 

90$ 

UPDATE 

LIST 

100$ 

alter 

1 

110 

SUBROUTINE  DSTPLT 

120$ 

E ;■  D E D T I 

130$ 

ENDCOPY 

1U0S 

PTLEDIT 

SOURCE,  OBJECT, INITIALIZE, RORE 

150$ 

LIHITE 

5,,,9K 

160$ 

PILE 

*C, P 1 R 

170$ 

FILE 

K* , NULL 

180$ 

FILE 

R*,D2SR,5L 

190$ 

FTLE 

P*  » NULL 

200$ 

SYSOUT 

*5 

210$ 

PROGRAM 

RAK1.IB 

220$ 

LIMITS 

1 , * , 9K 

230$ 

FILE 

R*,D2SR 

2U0$ 

FILE 

A4.D3SR, 10R 

250$ 

RELCOM 

40 

2C0$ 

OPTION 

FORTRAN,NOFCB,HOGO,SATE/ 

270$ 

LIBRARY 

IF 

280$ 

USE 

LISKK* 

290$ 

USE 

.GTLIT,.TSGF-.,  .rTSU.,,FXEHA 

300$ 

EXTRT 

ITSXMN 

310$ 

EXECUTE 

DUMP 

320$ 

LIMITS 

1.20K..9K 

330$ 

FILE 

LB, D3sR 

3tt0$ 

RRHFl 

H*,R/V,R,»LA0000 1/RADIO/ DISTORT 

350$ 

OPTION 

FORTRAN, NOFCB.KOGO, SAVE/ 

360$ 

LIBRARY 

LB 

370$ 

USE 

DSTPLT 

380$ 

USE 

.GTLIT,.TSGF.,.FTSU.,,FXEMA 

390$ 

ENTRY 

DSTPLT 

400$ 

EXECUTE 

DUMP 

mo; 

LIMITS 

1, 15K,,9K 

420$ 

FILE 

LB, DIR 

430$ 

FRRFL 

K*,R/W,R,BLA 0003  1/RADIO/DISTORT? 

440$ 

break 

450$ 

FILEDIT 

ROSOURCE, OBJECT, NONE 

460$ 

LIMITS 

1 , , , 9K 

470$ 

TILE 

•P,D2R 

480$ 

FILE 

R*,D4SR,5L 

490$ 

DATA 

•c,,con 

500$ 

DELETE 

, .PACK 

510$ 

ej-dfctt 

520$ 

ispcort 

530$ 

PROGRAM 

RANLIB 

540$ 

LIMITS 

1,,,9K 

550$ 

FTLE 

R*,D4R 

560$ 

prhfl 

A4,R/V,R,BLA00001/RADIO/USA 

570$ 

EXDJOB 

DSTKTP 

] 


L 
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4.2.2  Explanation  of  /RADIO/ JOB 


The  file  BLAOOOOl/RADIO/JOB  contains  all  of  the  programs  that  were  on 
tape  we  sent  you,  and  they  are  in  the  same  format  as  on  the  tape.  The  first 
activity,  a FILEDIT,  merely  modifies  the  main  plotting  routine,  DSTRTP.  A 
SUBROUTINE  DSTPLT  statement  is  added  to  change  the  SYMDEF  of  the  routine 

from  to  DSTPLT  so  that  all  of  the  routines  will  have  unique 

SYMDEFs.  Without  the  change,  there  would  be  two  routines  (DSTRTP  and 

DIMXXX)  with  the  same  SYMDEF  ( ),  and  since  programs  which  have  been 

placed  on  a random  library  by  the  program  RANLIB  are  accessed  by  SYMDEF,  the 
second  of  the  two  would  then  be  inaccessible. 

The  second  activity,  another  FILEDIT,  compiles  or  assembles  all  of 
the  programs  and  places  the  object  decks  on  a single  output  file,  R*. 

This  file  is  used  as  input  to  the  third  activity,  RANLIB,  where  the  object 
decks  are  reformatted  and  placed  on  a random  library  file. 

The  fourth  activity  loads  the  timesharing  input  programs  and  saves 
the  core  image  of  these  programs  onto  an  H*  file.  The  $ RELCOM  card  is 
required  since  the  programs  are  highloaded,  causing  the  COMMON  to  be  allo- 
cated in  low  core.  Without  the  $RELCOM,  COMMON  allocation  would  begin  at 
100  octal,  just  above  the  slave  prefix.  This  is  correct  for  a batch  program; 
timesharing,  however,  requires  a larger  slave  previx  (144  octal  instead  of 
100  octal  words),  so  COMMON  must  be  relocated  above  timesharing's  slave 
prefix.  This  is  not  required  in  the  fifth  activity,  since  there  is  no 
blank  common.  The  name  following  the  SAVE  option  of  the  $OPTION  card  is 
arbitrary,  since  there  is  only  a single  core  image  saved  on  the  file,  and 
it  is  not  used  as  an  overlay  nor  accessed  by  a MME  GECALL/GERSTR  or 
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DRL  RESTOR.  The  $ USE  and  $ ENTRY  cards  are  used  to  inform  the  loader  that 
the  program  whose  SYMDEF  is  LINKMN  is  to  be  loaded  (in  this  case  from  the 
random  library  created  in  the  previous  activity),  and  that  execution  is  to 
begin  with  this  program  (later  on,  in  timesharing,  when  the  program  is 
actually  executed).  The  other  $ USE  card  forces  loading  of  special  versions 
of  several  FORTRAN  library  routines  which  replace  the  BCD-  and  batch-oriented 
routines  and  allow  executing  in  an  ASCII  time-sharing  environment.  The 
fifth  activity  is  similar  to  the  fourth,  except  that  the  timesharing  output/ 
plotting  routines  are  being  loaded  and  saved.  The  sixth  and  seventh  activi- 
ties delete  the  timesharing  programs  from  the  collection  of  object  decks 
produced  in  activity  2,  leaving  only  the  batch  object  decks.  These  are  then 
placed  on  a random  library  file  for  later  execution. 

The  procedure  described  above,  using  FILEDIT  and  RANLIB,  was  used 
in  our  current  implementation  of  the  DISTORT  system;  however,  you  should  be 
aware  that  many  variations  of  this  procedure  are  possible. 

4.2.3  Program  operation 

The  file  BLA00001 /RADIO/NORUN  is  a binary  file  containing  a single 
work  of  binary  information,  along  with  the  three  words  of  standard  GFRC 
control  information.  This  single  word  is  a binary  integer;  it  is  read, 
incremented,  and  written  back  in  lines  7790  thru  7840  of  LNKM3A.  It  is  used 
thereafter  in  LNKM3A  to  specify  a unique  file  name.  This  file  is  created 
and  erased,  deaccessed,  specified  for  file  code  02  in  the  spawned  batch  job, 
used  by  a batch  job  to  contain  output  to  be  passed  to  the  plot  routines,  read 
and  released  by  the  plot  routines,  and  lastly,  the  file  name  is  printed  out 
as  a "program  execution  number"  to  allow  the  user  to  keep  track  of  the 
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input  and  output  for  each  execution  of  the  program. 

File  01  in  the  timesharing  input  program  contains  the  data  specifying 
the  problem;  file  02  contains  the  $ LIMITS  card  specifying  the  appropriate 
output  files  for  the  batch  job.  The  amount  of  core  required  for  a given 
execution  of  the  batch  program  is  calculated  on  line  7700  of  LNKM3A;  this 
statement  allows  approximately  27K  words  for  the  program  and  file  buffers, 
and  an  additional  IK  for  each  IK  or  fraction  thereof  required  for  the  two 
variable  arrays.  Cl  and  C2.  The  amount  of  time  required  is  calculated  on 
line  7710;  it  is  arbitrarily  set  at  50/100  hour,  since  we  are  not  aware  of 
an  algorithm  by  which  a better  estimate  of  the  time  required  can  be  calcu- 
lated . 

REWIND  and  FCLOSE  are  used  on  files  01  and  02  in  line  8040  of  LNKM3A, 
since  the  buffers  for  these  two  files  must  be  completed  and  written  out  to 
the  files  prior  to  calling  the  CARDIN  subsystem.  The  subroutine  CALLTS  (part 
of  YSFUTL)  is  called  to  invoke  the  ACCESS,  REMOVE,  and  CARDIN  subsystems  of 
timesharing  to  create,  erase,  and  deaccess  a permanent  file,  and  to  spawn 
a batch  job. 

CALLTS  is  one  of  several  FORTRAN-callable  entry  points  within  the 
YSFUTL  utility  package.  Nearly  all  of  the  code  pertinent  to  its  operation 
is  on  the  listing  of  YSFUTL.  Its  operation  involves  two  steps.  The  first 
step,  lines  15020  thru  15230  is  to  perform  a DRL  PSEUDO,  which  simulates 
input  from  the  keyboard.  Keyboard  input  is  simulated  because  the  subsystem 
which  is  subsequently  called  will  frequently  examine  the  last  line  of  input 
typed  in  at  the  keyboard  to  determine  the  exact  nature  of  the  function  to  be 
performed.  The  second  step  of  the  procedure,  lines  15240  thru  15380,  is  to 
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invoke  the  desired  subsystem  via  DRL  CALLSS.  When  this  DRL  is  executed,  the 
program  that  executed  the  instruction  is  interrupted,  its  state  is  automati- 
cally saved  by  the  TSS  Executive,  and  the  specified  subsystem  is  loaded  and 
executed.  After  the  subsystem  has  terminated,  the  program  which  executed 
the  DRL  CALLSS  is  reinstated  and  its  execution  resumed  at  the  point  where  it 
was  interrupted. 

UNPACK  is  one  of  the  FORTRAN-ca liable  entry  points  within  the  PACK 
utility  package.  UNPACK  is  used  to  convert  a packed  character  string,  in 
either  BCD  or  ASCII,  into  an  unpacked  character  string  (one  character  per 
word,  left  justified,  with  trailing  blanks  in  each  word)  of  the  same  mode 
(BCD  or  ASCII).  The  calling  sequence  is: 

CALL  UNPACK  (LINE , I .ARRAY ,J ,N) 

where  LINE  is  the  packed  character  string,  and  ARRAY  is  the  unpacked  char- 
acter string.  N characters  are  moved,  starting  with  the  Ith  character  of 
LINE  and  the  Jth  character  of  ARRAY.  The  mode  of  the  character  strings  is 
assumed  to  be  ASCII;  this  may  be  altered  as  follows: 

CALL  UNPACK  (,0)  changes  the  mode  to  BCD 

CALL  UNPACK  (,1)  changes  the  mode  back  to  ASCII. 

PACK  has  the  opposite  effect  of  UNPACK;  it  moves  characters  from  the  first 
to  third  arguments,  packing  them  as  it  goes.  MOVE  moves  a packed  string  from 
the  first  to  third  arguments.  PACK  and  MOVE  each  have  a sixth  argument  which, 
if  nonzero,  causes  the  last  word  into  which  data  was  moved  to  be  filled  with 
blanks  to  the  end  of  the  word.  Calling  PACK  or  MOVE  with  a null  first  argu- 
ment will  set  the  mode  (BCD  or  ASCII)  as  above;  the  mode  currently  in  effect 
applies  to  all  three  entry  points. 
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DIMXXX  automatically  allocates  storage  for  the  two  arrays,  Cl  and  C2, 
depending  upon  the  amount  of  storage  available  to  be  allocated  to  these  two 
arrays,  which  is  in  turn  dependent  upon  the  $ LIMITS  card  generated  by 
LNKM3A  when  the  batch  job  was  spawned.  When  the  batch  program  is  loaded  for 
execution,  the  instructions  are  loaded  at  the  high  end  of  the  momory  segment 
allocated  by  the  $ LIMITS  card.  As  a result,  "unused"  space  may  exist  near 
the  low  end  of  memory.  DIMXXX  calls  .FOPEN  to  allocate  I/O  buffers  for 
files  01,  02,  and  06,  since  these  buffers  are  taken  from  this  "unused" 
space.  The  amount  of  "unused"  space  remaining  is  then  calculated,  and  the 
maximum  dimension  for  Cl  and  C2  which  will  fit  into  the  remaining  space  is 
computed.  A MME  GESNAP  instruction  is  executed  to  document  the  locations 
and  dimensions  of  Cl  and  C2,  and  this  information  is  then  passed  to  the 
main  batch  routines  via  a CALL  statement  and  adjustable  dimension  procedures. 

The  batch  FORTRAN  routines  were  modified  wherever  a WRITE  to  file  code 
02  appeared.  In  some  cases,  such  as  the  coupling  coefficient  printouts 
(which  are  not  plotted)  and  where  the  printout  is  purely  textual  with  no 
variable  information,  the  WRITE  statements  were  deleted  altogether  (con- 
verted to  COMMENTS).  In  the  other  cases  the  original  WRITE  statement  was 
converted  to  a COMMENT  and  a new  BINARY  (unformatted)  WRITE  statement  was 
inserted  in  its  place.  These  new  statements  convey  the  same  variable  in- 
formation as  the  original  (unformatted)  WRITE  statements,  with  the  addition 
of  RECORD  TYPE  and  RECORD  LENGTH  variables  at  the  beginning  of  each  record, 
and  without  the  textual  information.  These  changes  have  resulted  in  a 
somewhat  reduced  filespace  requirement  for  the  output  file  (150  words 
versus  198  words,  or  a 25%  reduction,  for  the  sample  run  included  in  this 


package;  in  general,  the  reduction  is  on  the  order  of  13%).  More  important- 
ly, though,  the  file  is  more  readily  machine-readable  than  it  was  before. 

The  record  can  be  read  at  once  with  a single  binary  read  statement;  no 
format  conversion  is  required;  the  exact  nature  and  amount  of  data  read  is 
immediately  available  to  the  plotting  program,  without  having  to  go  through 
the  trial-and-error  series  of  IF  and  DECODE  statements  required  to  interpret 
the  formatted  output. 

The  plotting  routines  (DSTRTP,  DSTRP1,  and  Y.LABL,  with  utility  routines 
YSFUTL  and  PACK)  allow  the  user  to  plot  the  antenna  patterns  generated  by  a 
given  execution  of  the  batch  portion  of  the  DISTORT  system.  DSTRTP  first 
requests  the  "program  execution  number"  which  is  the  name  of  the  file  to  be 
plotted;  the  file  is  accessed  and  an  initial  scan  of  the  data  on  the  file 
is  made,  tabulating  gain  figures  and  printing  out  a summary  of  the  data  on 
the  file.  The  user  is  then  asked  a series  of  questions  to  determine  which 
portion  of  the  data  on  the  file  is  to  be  plotted  and  the  way  in  which  the 
user  desires  to  have  the  data  presented.  After  this  information  has  been 
obtained,  the  plotter  is  activated  and  the  plot  produced.  Upon  completion 
of  the  plot,  the  user  is  given  several  options  to  either  rerun  a portion  of 
the  plotting  program  or  release  the  data  file  if  it  is  no  longer  needed. 

The  user  is  given  the  option  of  plotting  the  vertical  or  horizontal 
patterns  for  a given  run,  or  both  may  be  plotted  on  the  same  graph.  The 
user  may  also  plot  an  isotropic  circle  if  he  so  desires.  The  plot  may  be 
presented  in  any  one  of  three  different  ways:  scaled,  normalized  or  family. 
If  "normalized"  is  selected,  the  horizontal  and/or  vertical  plots  will  (both) 
be  normalized,  i.e.  will  extend  to  the  usable  limits  of  the  graph  paper  at 


the  points  of  maximum  gain.  The  size  of  the  isotropic  circle  will  then  be 
scaled  to  indicate  the  relative  magnitudes  of  the  isotropic  and  the  pattern 
plotted.  Since  only  one  isotropic  circle  is  plotted,  the  user  will  be  asked 
which  pattern  the  circle  is  to  be  related  to  in  the  event  that  both  the 
horizontal  and  vertical  patterns  are  being  plotted  in  normalized  form.  If 
"scaled"  is  selected,  the  horizontal,  vertical,  and  isotropic  patterns  for 
the  run  to  be  plotted  will  all  be  scaled  relative  to  each  other  so  that 
their  relative  magnitudes  can  be  readily  seen.  Finally,  if  "family"  is 
selected  all  runs  for  this  file  will  be  scaled  relative  to  each  other.  This 
allows  the  user  to  see  how  the  gain,  as  well  as  the  shape  of  the  pattern, 
varies  from  run  to  run  as  the  frequency  is  changed. 

After  the  appropriate  scaling  factors  have  been  computed,  the  user  is 
given  an  opportunity  to  ready  the  plotter  for  operation;  plotting  then 
begins.  The  data  points  to  be  plotted  are  read  by  DSTRTP;  the  scaling  and 
output  of  the  data  to  the  plotter  for  both  patterns  and  the  isotropic  circle 
is  done  by  DSTRP1,  which  is  called  once  for  each  data  point  to  be  plotted. 
Only  a few  points  on  the  isotropic  circle  are  plotted;  these  appear  as  dots 
at  45  degree  intervals.  If  the  user  requested  that  the  program  stop  between 
plots,  the  message  CHANGE  PENS  will  appear  between  each  pattern,  affording 
the  user  an  opportunity  to  change  the  color  of  the  pen  before  continuing. 
Lastly,  Y.LABL  is  called  to  place  the  program  execution  number  and  run  num- 
ber in  the  upper  lefthand  corner  of  the  plot.  The  user  may  then  plot 
another  run  from  the  same  file,  or  he  may  release  the  file  if  no  longer 
needed  and  then  begin  plotting  from  another  file  or  terminate  the  plotting 
program. 
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Y.LABL  produces  alphanumeric  characters  on  the  plotter.  It  is 
capable  of  producing  any  of  the  95  printable  ASCII  characters,  although  in 
this  application  it  produces  only  numerics  and  the  hyphen.  It  can  get  its 
data  from  labeled  common,  as  it  does  in  this  case,  or  from  the  keyboard  or 
from  a disk  file  containing  the  answers  that  would  be  typed  at  the  keyboard. 
It  is  capable  of  many  variations  in  scaling.  A file  called  BLA00001/ 
PLOTTER/ALPHANUM,  a random  data  file,  contains  descriptions  of  the  shapes  of 
the  characters  to  be  plotted.  You  do  not  have  a copy  of  the  data  in  this 
file,  and  it  would  be  somewhat  difficult  for  you  to  duplicate  its  contents; 
this  is  of  little  consequence,  however,  since  you  also  do  not  have  a plotter 
to  use  the  data  and  since  the  program,  when  it  is  unable  to  access  the  file, 
will  simply  print  an  error  message  to  that  effect  and  return. 

4.2.4  HP  7202A  graphic  plotter 

The  graphic  plotter  produces  graphs  by  drawing  straight  line  seg- 
ments between  successive  coordinates  or  by  plotting  points  at  the  coordinates. 
Every  point  is  uniquely  defined  by  a 4 digit  X and  a 4 digit  Y coordinate 
pair.  Each  coordinate  may  range  from  0000  to  9999.  Line  segments  may  be 
up  to  3 inches  in  length;  coordinates  are  accepted  at  a maximum  rate  of  1.1 
coordinate  pairs  per  second.  Since  data  is  transmitted  from  the  computer  at 
30  characters  per  second,  this  last  requirement  necessitates  adding  "fill" 
characters  to  take  up  additional  time.  If  each  plotter  command  or  coordi- 
nate pair  is  preceded  by  about  10  blanks,  the  combined  delay  of  the  blanks, 
the  data  itself,  and  the  several  nonprinting  character  inserted  in  each  line 
by  timesharing  should  be  sufficient. 

The  plotter  is  manually  adjusted  so  that  position  0.0  corresponds 
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to  the  lower  left  corner  of  the  usable  space  on  the  graph  paper;  It  is  then 
manually  adjusted  so  that  9999,9999  corresponds  to  the  upper  right  corner. 
Thus,  any  coordinate  pair  sent  to  the  plotter  will  cause  the  pen  to  move  to 
a corresponding  point  on  the  grid  area  of  the  graph  paper. 

When  the  plotter  is  turned  on,  receipt  of  the  characters  PLTL  enables 
the  plotter;  line  segments  will  be  drawn  between  the  coordinates  transmitted 
on  lines  following  this  command.  PLTP  causes  the  points  to  be  plotted;  the 
pen  will  move  to  the  specified  coordinates,  make  a dot  on  the  paper,  and 
then  lift  from  the  paper  before  moving  to  the  next  coordinate.  PLTT  ter- 
minates plotting  and  disables  the  plotter.  The  carriage  return  character 
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causes  the  pen  to  move  to  a new  position,  and  the  line  feed  character  pre- 
pares the  plotter's  logic  to  accept  the  next  pair  of  coordinates.  The  up- 
arrow  or  circumflex  character  immediately  following  the  Y coordinate  in  line 
mode  causes  the  pen  to  lift  prior  to  moving  to  that  position.  This  allows 
pen  lift  while  plotting  lines  with  PLTL.  A typical  line  containing  coordi- 
nate information  will  begin  with  10  spaces,  followed  by  a 4 digit  X coordi- 
nate, followed  by  one  space,  followed  by  a 4 digit  Y coordinate,  followed  by 
■ 

a carriage  return  and  line  feed. 


4.2.5  Sample  Timesharing  Runs 

The  $ IDENT  card  image  is  contained  on  a file  separate  from  the  rest 
of  the  JCL  for  the  batch  portion  of  DISTORT,  so  that  the  $ IDENT  card  can 
readily  be  altered  as  needed  by  using  personnel,  without  disturbing  the 
rest  of  the  JCL.  The  $ IDENT  card  image  is  inserted  into  the  JCL  stream  by 
CARDIN  in  response  to  the  $ SELECTA  card  image.  The  $ LIBRARY,  $ USE, 

$ ENTRY,  and  $ PRMFL  cards  allow  the  loader  to  load  and  execute  the  batch 
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DISTORT  program  from  the  random  library  file  on  which  the  program  resides. 
Note  that  the  batch  program  must  be  reloaded  each  time  it  is  to  be  used, 
since  varying  memory  size  allocations  dictate  loading  the  program  at  dif- 
ferent locations  in  memory  and  making  corresponding  changes  to  constants 
used  by  FORTRAN'S  library  routines,  a task  accomplished  by  the  loader.  This 
is  in  contrast  with  the  timesharing  segments  of  the  system,  whose  memory 
allocation  sizes  do  not  vary  from  one  execution  to  the  next  and  which,  there- 
fore, can  be  loaded  once  by  the  loader;  thereafter  they  are  simply  recalled 
from  the  H*  file  and  executed,  without  going  through  the  usual  loading 
procedure.  The  two  $ SELECTA  cards  following  the  $ EXECUTE  cause  CARDIN  to 
include  the  $ LIMITS  and  $ PRMFL  02  card  images  and  the  data  card  images  in 
the  JCL  stream. 

The  file  NORUN  is  a binary  data  file.  Since  it  is  binary,  it  cannot  be 
listed  by  the  LIST  subsystem  of  timesharing;  instead,  the  FDUMP  subsystem 
is  used  to  display  the  contents  of  the  file  in  octal.  Only  one  word 
underlined  is  used  for  the  data;  it  is  a binary  integer  with  the  decimal 
value  1030.  The  other  three  words  are  system  standard  format  GFRC  control 
words . 

The  timesharing  input  program  is  invoked  by  the  command  loader  when  the 
user  types  the  file  descriptor  of  the  H*  file  containing  this  program.  The 
program  executes,  and  after  all  data  has  been  input  and  printed  out  for  veri- 
fication, the  user  is  informed  of  the  program  execution  number  (derived  by 
incrementing  the  binary  integer  on  file  NORUN)  and  the  limits  required  for 
the  job.  If  the  data  is  correct  a file  is  created  (using  the  program 
execution  number  as  a file  name)  and  CARDIN  is  called  to  spawn  the  job. 


Upon  completion  of  the  batch  job  the  plotting  routines  are  similarly  in- 
voked using  the  command  loader. 


A list  of  a sample  run  follows. 


A. 2. 6 List  of  Sample  Timesharing  Runs 


SYSTEM  ?LIST  /RAD  I O/USA  .R'JNl 
n AS  IS  N 

S SELECTA  BLAOOOO l /RAD IO/IDENT 

S OPTION  FORTRAN 

S LIBRARY  LB 

$ USE 

S ENTRY  

S EXECUTE  DUMP 

S SELECTA  02 

S DATA  0 1 

* SELECTA  01 

S PRMFL  L8#R«R#BLA00001 /RADIO/USA 

S END  JOB 

READY 

SYSTEM  TFDUM  /RADIO/NORUN 
BLOCK  TO  BE  READ?  1 
FUNCTION  ? SO 

000000  000001000003  000001000103  000000002006  000000170000 

V 

SYSTEM  ?REMO  CLEARFILES 
SYSTEM  ?FORT  NEW 
READY 

<RUN  AFCS  .LIB /RAD  I O/D  1ST  CRT 
DIMENSIONS  IN  METERS  OR  INCHES  ? 

m 

GROUND  PLANE  ? 

41 

SIMPLE  PROG  ? 

COUPLING  COEFFICIENTS  ? 

41 

NUMBER  OF  ANTENNAS 

■ 

1 

****  ANTENNA  NUMBER  l •••* 

ANTENNA  TYPE  ? <10  97#  197#  1181  OR  1 000  3 
4 97 

ANTENNA  POSITION  X#Y#Z  ON  THE  PLATFORM 
4 • #0 • #0  • 


***  RADIATION  PATTERN  ♦♦♦ 

VERTICAL  PATTERN  ? 

*r 

PHI  (DEGREES) 

4 • 

PLOTTING  INCREMENT  (NON- ZERO  NUMBER)  (DEGREES) 

-10 

HORIZONTAL  PATTERN  7 

m 

N 

COMMUNICATION  RANGE  CONTOUR  ? 

•N 

NUMBER  OF  RUNS 

H 

****  RUN  # I •*** 

FREQUENCY  (MHZ) 

<20. 

FED  ANTENNA  (#  ) 

-I 

DIM-  M GP-  N SIMP-  Y COUPL-  N NR-  1 
ANT#  - I 

TYPE  - I 97 

X - 0 • 

Y - 0 . 

Z - 0 * 

VER  PAT-  Y 

PHI  - 0.  PLOT  INC-  10.00 

HQR  PAT-  N 
CCM  RNG-  N 


JUN#  FREQ (MHZ)  ANT  FED (# ) 

I 320  .00  I 

DATA  CORRECT  7 

PROGRAM  EXECUTION  NUMBER-1031 
ARRAY  DIMENSIONS  » 7 

JOB  REQUIRES  50  /100  HR  TIME  AND  028K  WORDS  CORE. 

SNUMB  » 3168T 
TERUN? 

-N 


SYSTEM  7STAT 


CHANNEL  4200 

USER  STATUS  ON  MAR  16.1978 
PROC  TIME  USED  2.54  SEC.. 
LIST  OF  OPEN  FILES  I 01 


SYSTEM  7LIST  01)02 


AT  1 5 >50  l35  LOG-ON  AT  15>30>40 
60  FILE  I/O  6400  CHAR  KEY  I/O 
02  USA.RUN1 
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1 26  I 0 0 • 0 • 


0 .4  80 

0 .030 

0 .450 

0.450 

0 .450 

0.450 

0.450 

0.450 

0 .450 

0 .450 

0 .450 

0 .450 

0 .450 

0 .450 

0.170 

0.170 

0.170 

0 .170 

0 .170 

0 .170 

0 .170 

0 .170 

0.170 

0.170 

0.170 

0.170 

0.01730  0*00200  0.00450  0.00430  0.00450  0.00450  0.00450  0.00450 
0*00450  0.00450  0.00450  0.00450  0.00450  0.00450  0*00350  0.00350 


0.00350  0.00350  0.00350  0.00350  0.Q03S0  0.00350  0*00350  0*00350 


0.00350  0.00350 


0 . 0 . 

0. 

o. 

0. 

0.  0. 

0. 

0. 

0 . 0. 

0. 

0. 

0. 

0.  0. 

0. 

0. 

0.  0 . 

0. 

0. 

0. 

0.  0. 

0. 

0.  0. 

0. 

0. 

0. 

0.  0. 

o. 

o. 

0.  0. 

0 * 

0. 

0. 

0 . 0 . 

o. 

0. 

0.  0 . 

0. 

0. 

0. 

0.  0. 

o. 

0 . 0 *480 

0 .4  80 

0.4  80 

0 .4  80 

0*480  0.480 

0.4  80 

0.4  80 

0 .4  80  0 .4  60 

0 .4  80 

0 .4  80 

0 *4 80 

0.510  0.510 

0.510 

0.510 

0.510  0.510 

0 .510 

0.510 

0 .510 

0.510  0.510 

0 .510 

10  0 0 

o. 

o. 

10.00 

0.  o. 

197 

7 0 10 

0 320 

.00 

. 1.000 

0* 

o. 

o. 

o.  o. 

0. 

0. 

• 0 . 

0* 

0. 

o. 

0.  o. 

0. 

0. 

• 0 • 

o. 

o. 

o. 

0.  0* 

0. 

2 1 3 

3 3 

3 3 

3 3 

3 3 3 

3 3 

1 

1 1 1 

1 1 

1 1 

1 1 

1 

1 3 4 

4 4 

4 4 

4 4 

4 4 4 

4 4 

7 

7 7 7 

7 7 

7 7 

7 7 

7 

1 3 4 

4 4 

4 4 

4 4 

4 4 4 

4 4 

7 

7 7 7 

7 7 

7 7 

7 7 

7 

Si LIMITS  <50  /02  8K/ /20  K 
StPRMFLi02/V/S/AFCS .LIB /D ISTRT /I  031 


HEADY 

SYSTEM  7CATA  D ISTRT 


LIST  OF  CATALOG-D ISTRT 
CATALOGS 
FILES 


1031 


SYSTEM  7FDUM  /RAOIO/NORUN 
BLOCK  TO  BE  READ?  1 
FUNCT  ION  7 S0/4 

000000  000001000003  000001000103  000000002007  000000170000 
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4.3  Program  Changes  Procedures 

As  stated  in  4.1  all  programs  are  stored  in  source  format  in  the 
RADAR  file.  Therefore,  they  can  be  changed  by  the  normal  procedures 
available  tc  any  TSS  user.  If  new  programs/subroutines/functions  are 
written,  they  should  be  merged  in  the  file  RADAR  with  the  proper 
$ (System)  card  for  compilation.  The  File  EDIT  system  as  Used  in 
/RADIO/ JOB  can  then  be  rerun,  updating  all  subsystems. 

4.4  Program  Verification 

Even  if  the  program  has  been  modified,  it  should  still  produce 
the  same  results  as  previous  runs  (see  User's  Manual)  that  are  not  affected 
by  the  changes.  Programmers  should  provide  test  runs  to  verify  that 
modifications  are  working  properly. 

4.5  Error  Conditions 

There  are  two  types  of  error  conditions:  system  errors  and  user's 

errors. 

4.5.1  System  Errors 

These  are  due  to  improper  use  of  the  computer  system  and  are 
listed  in  the  appropriate  manuals. 

4.5.2  User's  Error 

This  program  has  been  designed  under  the  "user  oriented"  philosophy. 
It  has  many  built  in  checks  on  the  appropriateness  of  the  answers.  For 
example,  if  the  user  tries  to  feed  a VHF  antenna  with  a UHF  frequency, 
the  program  will  detect  the  error  and  request  the  frequency  again  (see  User's 
Manual).  Of  course,  if  the  wrong  VHF  frequency  is  entered,  the  program 
will  accept  it,  since  it  is  a valid  frequency  for  the  VHF  antenna. 
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4 . 6 Flow  Charts/Block  Diagrams 


In  the  next  sections  flow  charts/block  diagrams  for  the  overall 
system  and  for  each  program  are  presented. 


Computation 

Activity 


Plotting  and  Printing 
Activity 


1 


A. 6. 2 Subsystem  Interconnection  Block  Diagram  for  the  Computing  Activit 


4. 6. 4. 3 Subroutine  LINKM2 


4. 6.4.4  Subroutine  LINKM3 


CALCULATE  AND  STORE  THE  NECESSARY 
PARAMETERS  FOR  THE  CENERAL  PROCRAM 


1ME  • METERS:  MAXS  - MAX  # OF  SEGMENTS 


/SIMPLE\ 
PROCRAM? 
SiSIMP  - 1> 


4. 6. 4. 5 Subroutine  DSPLT 


RKAPs  r.Utr  KILi  **»M"  j 


4.7  List  of  Principal  Symbols 


A 

A 

ADB 

AC,  BC 

AE,  BE 

AINP 

AINT 

AIT 

ALP 

ALT 

AMAX 

ANSV 

ANSW 

ANTEL 

APHI 

APIN 

AS 

AT 

ATHI 

AUTO 

AV,  BV 
AZ,  BZ 

B 

B 

BEAR 

BTA 


Number  of  subsections  per  wavelength 
Coupling  coefficient  in  dB 

Real  and  imaginary  parts  of  the  current  matrix 
Real  and  imaginary  parts  of  the  radiation  field 
Angle  Phi  increment 
Angle  Theta  increment 
Radiation  pattern  angle 

One-fourth  of  a sub-section  length  of  the  test  wire. 
Airplane  altitude  above  ground  in  feet 

Maximum  value  of  the  radiation  field  in  a specific  pattern 
ANSV=  YES/NO:  ANTENNA  OFFSET  FROM  TRANSIT? 

ANSW  = YES /NO:  STANDARD  ALTITUDES  IN  FEET 
Antenna  height  above  ground  in  feet 
Constant  Phi  plane 
Transmitter  power  (WATTS) 

Number  of  subsections  with  zero  current  at  each  end 
of  the  antenna 

Same  as  AS 

Constant  Theta  plane 

AUTO  - 1:  value  of  A is  automatically  specified 
AUTO  * 0:  value  of  A specified  by  the  user 
Real  and  imaginary  parts  of  a sub-antenna  feed  voltage 
Real  and  imaginary  part  of  a sub-antenna  load  impedance 


Distance  between  two  pulses  of  expansion  or  testing  functions. 
Antenna  bearing  in  Degrees  and  Minutes  (DD,  MM). 

Antenna  bearing  from  the  North 


52 


I 


c 


CL 

Cl,  C2 

D 

DBM 

DIST 

PPER 

DTA 

E 

ELANG 

JF 

FA 

FILENAME 

FP 

FR 

G 

GMAX 

GP 

GREL 


CL  * 1:  Compute  coupling  coefficients 

CL  = 0:  Do  not  compute  coupling  coefficients 

Real  and  imaginary  parts  of  the  generalized  impedance  matrix 


Receiver  sensitivity  in  dBm 
Distance  between  screen  and  transit  in  feet 
Percent  increment  of  pattern  distribution 
Distance  between  antenna  and  transit  in  feet 


Elevation  angle  from  transit  in  radians 


Height  of  the  bottom  of  the  fed  antenna  in  SIMPLE  PROGRAM 
Name  of  SCREEN  file 
Operating  frequency  in  Hz 
Operating  frequency  in  MHz 


Maximum  gain 

GP  ” 1;  with  ground  plane 
GP  « 0;  without  ground  plane 

Ground  elevation  above  mean  sea  level  (MSL)  in  feet 
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H 


HI 

Load  position  measured  from 

sub-antenna 

bottom 

H3 

Feed  position  measured  from 

sub-antenna 

bottom 

H4 

Lighting  rod  length 

H5 

Lighting  rod  diameter 

HO 

Sub- antenna  length 

HSCRN 

Screen  height  in  meters 

I. 

I ALP 

IALT 

IAUTO 

IB 

IC 

ICL 

ID 

IDB 

IDD 

IDIM 

IF 

IFP 

I FT 

IG 

IGP 

112 


Vertical  pattern 
Horizontal  pattern 

IAUTO  = YES /NO:  answer  to  AUTO  SPEC  It  SEGS 
Both  (MAG,  DB) 

IC  = 1:  compute  coupling  coefficients 

IC  • 0:  do  not  compute  coupling  coefficients. 

ICL  = YES/NO  answer  to  COUPLING  COEFFICIENTS? 

in  dB 

IDB  = -1,  pattern  in  magnitude 

IDB  = 0,  pattern  in  dB 

IDB  = 1,  pattern  in  magnitude  and  dB 

IDD  * M,  plot  in  magnitude 

IDD  = D,  plot  in  dB 

IDD  ■=  B,  plot  in  magnitude  and  dB 

Dimensions  of  generalized  impedance  matrix  (Cl,  C2) 

Feed  position  of  sub-antenna 

IFP  » 1,  vertical  pattern 
IFP  = 0,  otherwise 

IFT  = 1,  horizontal  pattern 
IFT  * 0,  otherwise 

IG  ■ 1,  with  ground  plane 
IG  = 0,  without  ground  plane 

ICP  = YES/NO:  answer  to  GROUND  PLANE? 

112  = 1,  (BZ)2  + 0 

112  *■  0,  otherwise 
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114 

116 

IIN 

IM 

IME 

IN 

IPA 

IPD 

IRG 

IRGE 
IS  IMP 
IT 
IV 
IZ 

J_ 

JQ 

K 

K 

K2 

KQ 

KS 

KW 


114  = 

1, 

(BV)2  4 0 

114  - 

o, 

otherwise 

116  = 

1. 

AZ  > 0 

116  » 

0, 

otherwise 

Dimensions  in  inches 
In  magnitude 
Dimension  in  meters 
No 

IPA  = 1,  Compute  pattern  distribution 

IPA  = 0,  Do  not  compute  pattern  distribution 

IPD  = YES/NO:  answer  to  PATTERN  DISTRIBUTION 

IRG  = 1,  Compute  communication  range 

IRG  = 0,  Do  not  compute  communication  range 

IRGE  = YES/NO:  answer  to  COMMUNICATION  RANGE  CONTOUR? 

ISIMP  = YES/NO:  answer  to  SIMPLE  PROGRAM? 

Type  of  antenna  in  SIMPLE  PROGRAM 

Fed  antenna  number 

Feed  and  load  position 


Number  of  test  field  calculations  for  numerical 
integration  of  the  pulse  testing 


Total  number  of  sub-antennas  (wires),  column  index 
of  the  Z-matrix 

K2  ■ 1,  without  ground  plane 
K2  ■=  2,  with  ground  plane 

Sub-antenna  (wire)  number,  column  index  of  the  Z-matrix 
Antenna  number,  column  index  of  the  Z-matrix 
Number  of  runs 
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L 


L 

Total  number  of  sub-antennas. 

row 

index  of  the  Z-matrix 

LI 

Load  positions  of  sub-antenna 

LQ 

Sub-antenna  number,  row  index 

of 

the  Z-matrix 

LS 

Antenna  number,  row  index  of 

the 

Z-matrix 

M 

MAXK  Maximum  core 

MAXS  Maximum  number  of  sub-sections 

MAXTIM  Maximum  time  required  by  job 

MC  MC  = 1,  sine  expansion  and  pulse  testing  for  radius 

less  than  0.02  of  wavelength 
MC  = 4,  Four  pulse  expansion  (approximation  of  a tri- 
angle) and  impulse  testing  for  radius  greater  than 
or  equal  to  0.02  of  wavelength  ...  z-directed 

wire  only  , 


MK 

MK  = 

1, 

AT  197  fed,  currents  assumed  symmetrical 

about  the  axis 

MK  = 

o, 

Otherwise 

ML 

Same 

as 

MK 

MM 

Maximum 

number  of  segments 

MV 

MV  = 

o. 

vertical  wires 

MV  = 

1, 

//13-//14  wires  of  AT 

197 

antenna 

AV  = 

2, 

//15-//16  wires  of  AT 

197 

antenna 

MW 

Same 

as 

MV 

N 

NA  Number  of  airplane  altitudes  above  ground,  in  feet, 

to  be  calculated  (1  to  6 altitudes) 

NB  Number  of  antennas  in  the  SIMPLE  program, 

NB  = 0,  GENERAL  program 

NFP  Number  of  field  points  in  the  horizontal  pattern 

NK  Number  of  sub-antennas  (wires):  . 

NK  - 1 for  AT  1181;  NK  = 5 for  AT  1097;  NK  = 26  for  AT  197 
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r 


NL 

NM 

NN 

NP 

NS 

NZ 

R 

R2 

R3 

RA 

RNG 

S 

SIMP 

STDALT 


Same  as  NK 

Maximum  number  of  segments 

Number  of  antennas  in  the  GENERAL  PROGRAM; 
number  of  sub-antennas  in  the  SIMPLE  PROGRAM 

Number  of  non-zero  currents  on  an  antenna 

Number  of  sub-sections  of  sub-antenna 

Total  number  of  feed  and  load  with  coupling  coefficients 
computed 


Earth  diameter  in  feet 

Equivalent  earth  radius  in  meters  for  ray  tracing 
(4/3  radiuB) 

Radius  of  sub-antenna 

Ranges  in  nautical  miles  for  antenna 


SIMP  = 0,  GENERAL  program 
SIMP  = 1,  SIMPLE  program 

Standard  airplane  altitudes  in  feet 


T 

T*ANEL  Transit  elevation 

TTH  Elevation  angle  from  the  antenna  bottom  to  screen 

in  radians 


X 

X, Y,Z  Bottom  position  of  antenna  in  GENERAL  program 

XX,YY,ZZ  Bottom  position  of  antenna  in  SIMPLE  program 

XI, Y1,Z1  Top  end  position  of  sub-antenna 
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I APPENDIX  I 

Program  Listing 

I 


10$  FORTRAN  ASCII* NFORH.NLNO 

20  SUBROUTINE  LINKMN 
30  common  junk<J'U3) 

40  TY»1 1953782816 
50  5 DO  10  1=1 ,3*f3J 
60  10  JUNK (11*0 

70  CALL  ATIaCH(03,"BLa0000VFADIO/NORUN;«,3,0,ISTAT,  ) 

10  c»ll  CREaTE(01,4000,0,ISTAT) 

90  CALL  CRtATE(02,4O00.0,ISTAT) 

100  REWIND  01;  REWIND  02;  REWIND  03 
110  CALL  LlNKMl 
120  CALL  LINKM2 
130  CALL  LINKH3 

140  PRIKTI'RERUN?*;  READ  1000,JUNK(1) 

150  LOOO  FORMAT ( A1 > 

160  XP(JOHKM)  .KE.inSIO? 

170  SO  TO  5 
180  END 

190$  FORTRAN  ASCII, NFOSH,  NLSO 

200  SUBEOUTIUE  LINKM1 

210  COMMON  A,H0,H1,H3,RA.X.r.Z,AV,BV,AE*BZ,NS,L1,IF,IT,XX,XY,H.Il, 
2204FR»TY,IIM*GP, SIMP, NN, AUTO, KW»CL,NB,AINT,AINP»APHI,ATHE*IPA*IPD 
230A,H4,HS, trP,IFT,TaG,DBM,ISIMP,ICL,IALP,IALT,IPG£,IAUTO,lGP,I0D 
2404, ALT16), OREL, TRAHILiA)llEL,NA#DTA,BTA,APlN, FA, IDS, DPER.rilENABS 

250  DIMENSION  A(20C).i01200),H1(200).H3(2CO),PA(200).X(200),X(200). 
260<Z(200).AV(200)*3V(2CC),A2(361),BZ(400),SS(200).LI(200),lr(200), 
2704IK20!  .XX  (201  ,YX(20)»:Z(2O),ZZ  iuo),FR{  10),IV(  10 ) . H4  < 20  ) . H5  ( 20  ) . 
2 8 0'6  F A ( 4 0 1 • S ? D a L T ( 6 1 ICHAN/.CTER  FILENAME'S 
290  Ita  11 95378 28  16; IN*  10477387808 
300  IB*8 8667750 72; 10=9135210528; IM* 10343170080 
310* 

320*  ***IY=XES.  IN=N0.  IIN*INCHES,  I"E*METERS 
330*  •♦•I«=MaGKIIU3E,  ID-^B,  I8=B0TH ( MAG . DB ) 

340* 

350  liN»9806299168j Id 5=10343170080 
360  ABV=0. 

370  MX  1 = 20 1 MX2«200 
380* 

390*  ***nx1=nAXIBUH  NUMBER  OF  ANTENNAS  IN  THE  SIMPLE  PROGRAM 

BOO*  ♦**MX2=MAXIMUM  NUMBER  OF  ANTENNAS  IN  THE  GENERAL  PROGRAM 

410*  ***M>:2=HAXIMUH  NUMBER  OF  SUB-ANTENNAS  IN  THE  SIMPLE  PROGRAM 

420*  »**EkIER  DIMENSION  UNITS,  GROUND  PLANE  AND  TITE  OF  PROGRAM 
430* 

440  510  PRINT;"  DIMENSIONS  IN  METER*  OR  INCHES  ?" 

450  READ  SIS.IIB 
460  IF(IIM-IIN)  102,176,102 
470  102  ir(IlK-IME)  104,106,104 
480  104  PRINT  502;GO  TO  510 

490  502  FOR.MATC"  INPUT  ERROR,  TRY  AGAIN  ") 

500  106  PRINT;"  GROUND  PLANE  7" 

510  READ  515, IGP 

520  ir(IGP-IY)  112,116,112 
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IFKHNA 


IMKMA 


530  112  TF(IGP-IN)  114*517,114 
540  114  PRINT  502; GO  10  106 
550  116  GP=1, 

500* 

570*  ***GP*  1 * : WITH  THE  GROUND  PLAN* 

580* 

590  5 1 S roH.UT  ( A 1 ) 

600  517  PRIST:"  SIMPLE  PROG  7" 

610  *E»P  515* ISIHP 
620  iF(ISinr-II)  124,122,124 
630  122  SINP*1,;go  TO  300 
640* 

650*  ***SIMP*1 , t SIMPLE  PROGRAM 

660* 

670  124  IF ( ISIMP-IN ) 126,10,126 
680  126  PRINT  502;CO  TO  517 
690* 

700*  ***ENTBR  ALL  AHTENNA  SPECIFICATIONS  FOR  THE  GENERAL  PROGRAM  S 
710*  ***F*EO.  ,*  ANTENNAS,  4SEGS , , ANTENNA  LENGTH, LOAD  l FEES  POSITIONS 

720*  ***LOAO  IMPEDANCE,  FEED  VOLTAGE,  RADIUS  OF  ANTENNA  AND  POSITION  OF 
730*  *** ANTENNA  ON  PLATFORM  X,I,Z 

740* 

750  10  PRINT | " FREQUENCE  { MHZ ) READ  I FR ( 1 ) 

760  JF(FR(1),LE.O.)  PRINT  502 
770  IF(FR{1),LE.0.)  GO  TO  10 

780  605  PRINT:"  NUM3ER  OF  ANTENNAS  v J READ : NN 

790  lF(KN,GTtO,AND.NN,LE.MX2)  GO  TO  520 

800  IF(NN,LE,0)  PRINT  502| IF ( NN , LE.O » GO  To  605 

610  PRINT  625;GO  TO  605 

820  520  PRINT:"  AUTO  SPEC  4SEGS  ?" 

830  READ  515, IAUTO 
840  XT ( TAUTO^IT ) 132,136,132 
850  132  IF(IAUTO-IN)  134,138,134 
860  134  PRINT  502; GO  TO  520 
870  136  A U T 0 * 1 • 

880* 

890*  **  'AUTO* 1 , ! WITH  AUTO  SPEC  AfSEGS 
900* 

910  138  DO  285  1*1, NN 
920  PRINT  274,1 

930  274  FORMAT ( " ♦**•  ANTENNA  NUMBER", 13,"  ***•") 

940  IF(IAUIO.EQ.IY)  GO  TO  2 

950  3 PSINT:*  NUMBER  OF  SEGMENTS  PER  WAVE-LENGTH  * 

960  REAr : A ( I ) 

970  IF ( A ( I ) , IE . 0 , ) FEINT  502 ; IF ( A ( I ) ,LE , 0 , ) GO  TO  3 
980  2 PRINT:"  ANTENNA  LENGTH" 

990  REAP:hO(I) 

1000  IP(HO(I).LE.O.)  PRINT  502 ; IF ( HO ( I ) , lE . 0 , > GO  TO  2 

ioio  610  print:"  load  position" 

1020  read:ni(I) 

1030  IF(H1(I).GE.O..AND.H1(I).LT.H0(I))  go  TO  620 
1040  PRINT  502) GO  TO  610 
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1050  620  PRINT!'  TIT, D POSITION' 

1060  READ!H?(I) 

1070  ir(H3(I| .GZ.0..AND,H3(I).LT.H0(I))  CO  TO  622 
1060  PRINT  $02 J GO  TO  620 
1090  622  rRINT ! " ANTENNA  RADIUS" 

1100  ?EaD:RA(I) 

1110  IFiRA(I).LE.O.)  PRINT  502jIF(RA(I)»LE,0,)  GO  TO  622 
1120  IF(IIM-IME)  162.  166,166 
1130  162  IF(8A(I)-1240./FR(1))  168,166,164 
imo  164  PRINT  $02;  SO  TO  622 
1150  166  IF{ RA (X)-3  1 ,/PR ( 1 ) J 168,163,164 

1160  163  rRINT!"  ANTENNA  POSITION  X.T.Z  ON  THE  PLATFORM" 

1170  read:X(I),t(i),z(I) 

1180  irdin.Ec.iiN)  rA(i)"Z(i)*,02$4 
1190  IP(IIfi.EO.lnE)  r A { I ) *Z ( I ) 

1200  IF(GP.LT..S.OR.Z(I).GE,0.)  GO  TO  67 
1210  PRINT  502JGO  TO  1 6 8 

1220  67  PRIST:"  FEED  VOLTAGE  (REAL.IMAG)" 

1230  REaD:av(I),BV(!> 

1240  PRINT!"  LOAD  IMPEDANCE  ( REAL,  I.V.AG ) " 

1250  READ:AZ(I),BZ(I) 

1260  ABV*ABV*AV ( I ) **2+BV ( I ) **2 
1270  28S  CONTINUE 
1280  I F ( A3W- 1 , E-8 ) 56,56,310 
1290  56  PRINT  573 

1300  573  FOSHATC  ••<?>*«  <<  NO  ANTENNAS  A*E  FED  >>") 

1310  DO  57  I* 1 , NN 
1320  PRINT  274,1 

1330  PRINT!'  FEED  VOLTAGE  (REAL.IMAG)  " 

1340  57  READ|AV(I),BV(I) 

1350  GO  TO  310 
1360* 

1370*  ***RE0UEST  CALCULATION  OF  COUPLING  COEFFICIENTS 
1380* 

1390  300  PRINT!"  COUPLING  COEFFICIENTS  7" 

1400  Cl=0, 

1410  READ  515, ICL 
1420  ir(ICl-II)  172,176,172 
1430  172  IF ( ICL-IN ) 174,650,174 
1440  I7t*  PRINT  502;G0  TO  300 
1450  176  CL= 1 . 

1460* 

1470*  »**  CL=1,  !C0MPUTE  COUPLING  COEFFICIENTS 

1480* 

1490*  ***?EQUEST  NUMBER  OF  ANTENNAS  , NB 
1500* 

1510  550  PRINT!"  NUMBER  OF  ANTENNAS" 

1520  read:nb 

1530  IF(NB.LE.O)  PRINT  502; IF ( NS . LE , 0 ) GO  TO  650 
1540  XF(CL.3I..5.AND.NB.EQ.1)  PRINT  7 
1550  ir(CL.3T.,5,AHD.NB,EQ.1)  GO  TO  3Q0 
1560  7 FORMAT ( " **<<r>>»«  <<  # OF  ANT.  GREATER  THAN  ONE  (COUPLING 
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15704  COEP.)  >>") 

1580  irOI3.CT.HX1)  PRINT  625 

1590  625  rORHATt"  **<r>**  <<  TOO  MANY  ANTENNAS  >>") 

1600  IP(NU.3T.HX1)  GO  TO  650 
1610* 

1620*  •••REQUEST  ANTENNA  TYPES  A»P  POSITIONS  XX,  TY,  ZZ 
1630* 

164  0 DO  295  1*1, NB 
1650  PRINT  274,1 

1660  53C  PRINT:"  ANTENNA  TYPE  ? ( 1097,  197,  1181  OR  1000 ) " 

1670  READ : IT ( I ) 

1680  IP(NB.SQ,1, AND. IT(I).EQ. 1000)  PRINT  502 

1690  IP(NB.EQ, 1. AND, IT(I).EQ. 1000)  50  TO  650 

1700  ir(IT(I)-1097)  182,586,182 

1710  182  IT { IT( I > -1  1 8 1 ) 184,585,184 

1720  18U  IP(IT(I)-197)  200,586,200 

1730  200  ir(ITtl)-IOOO)  202,186,202 

1740  186  PRINT!"  LEKGTH";READtHU(I) 

1750  IP(H4(I).LE.0.)  PRINT  502; IT ( HU ( I ) , LE , 0 . ) 00  TO  186 
1760  u print:-  piaketer-;read:i!5(I) 

1770  IP(H5(I).LE.0,)  PRINT  502 ; ir ( H5 ( I ) , IE , 0 . ) 00  TO  4 
1780  GO  TO  586 

1790  202  PRINT  502,*GO  TO  530 

1800  586  PRINTS"  ANTENNA  POSITION  X,Y,t  ON  THE  PLATPORM" 

1810  READ:XX(I),IY(I),ZZ(I) 

1820  41  lr(5P.lT..5,OR,ZZ(I).GE.0.)  GO  TO  69 
1830  PRINT  502;GO  TO  586 

1840  69  IP(IIM.EQ.IIN)  P A ( I ) «ZZ ( I ) * , 0254 
leso.iFdin.EQ.in-i;)  rA(i>«zz<i) 

1 B60  N9= 1 

1870  ir(IT(I).E0.1097)  N9«5 
1880  IT ( IT ( X ) .EQ. 197)  N9«26 
1890  N N = N N ♦ K 9 
1900  295  CONTINUE 
1910* 

1920*  ***CHECK  IP  THE  » OP  SUB-ANTENNAS  NN  EXCEEDS  HAXIHUH 
1930* 

1940  IF ( RN .GT ,HX2 ) PRINT  625 
1950  IP ( NN • Cl. HX2 ) STOP 

i960  310  PRINTS"***  RADIATION  PATTERN  ♦♦♦" 

1970* 

I960*  ♦••  VERTICAL  PATTERN  7 

1990* 

2000  550  PRIRT! " VERTICAL  PATTERN  7" 

2010  READ  515,I/.Lr 
2020  IP(IALT-IT)  232,236.232 
2030  232  XP(XALr-IN)  234,55,234 
2040  234  PRIRT  502; GO  TO  550 
2050* 

2060*  •••ipp»i  s compute  vrpiicAt  pattern 
2070* 

2080*  •* ‘request  parameters  scokstant  phi,  increment  op  theta 
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I 


I 


2090* 

2100  236  IFP-1 

2110  79  PRINT: " PHI  (DEGREES ) "l BEAD  I APHI 

2120  580  PRINT  3801  READ  t AINT 

2130  IE(ABS(AINT).GE..Ol)  GO  to  55 

2180  PRINT  5021  GO  TO  580 

2150* 

2160*  “‘HORIZONTAL  PATTERN  ? 

2170* 

2180  55  PRINT:"  HORIZONTAL  PATTERN  ?" 

2190  READ  5 1 5, IALT 
2200  ir(IALr-IT)  282.286,282 
2210  282  ir(IALT-IN)  288,65,288 
2220  288  PRINT  5021  GO  TO  55 
2230  286  IPT“ 1 
2280* 

2250*  “*IFT»1  ! CONFUTE  HORIZONTAL  PATTERN 

2260* 

2270*  ‘“REQUEST  PARAMETERS  SCOHSTANT  THETA,  INCREMENT  OP  PHI 
2280* 

2290  89  PRINT:"  THETA  (DEGREES)  "1 RIADI ATHE 
2300  590  PRINT  3801READ: AINP 
2310  IP(ABS(AINP),GE.,01)  GO  TO  3 1 5 
2320  PRINT  5021GO  To  590 

2330  380  rORMAl ( " PLOTTING  INCREMENT  (NON-ZERO  NUMBER)  (DEGREES)") 
2380* 

2350*  •“PATTERN  DISTRIBUTION  ? 

2360* 

2370  315  PRINTS"  PATTERN  DISTRIBUTION  ?" 

2380  READ  5‘5, IPD 

2390  ir(IPD-IT)  320,330,320 

2800  320  IE(IPD-IN)  325,65,325 

2810  325  PRINT  5021GO  TO  3 1 S 

2820  330  IFA-1 

2830* 

2880*  ***IPA"1  SCOMPUTE  PATTERN  DISTRIBUTION 

2850* 

2860*  “"REQUEST  PARAMETERS  JPLOT  TO»M  , PERCENT  INCREMENT 
2870* 

2880  335  TRINT:"  PLOT  IN  MAG,  DB,  OR  BOTH  7" 

2890  READ  5 15, IDD 
2500  ir(IDD.EQ.IM)  IDB—1 
2510  IF ( IDD . EQ ,16 ) IDB-0 
2520  If ( IDD , EQ, ID ) IDB»1 

2530  ir(IDD.NE,IM.AND.IDD.NE.lD,AND.IDDiNE.IB)  PRINT  502 

2580  irdDD.NE.lM.AND.IDD.NE.lD.AND.IDDiNF.IB)  GO  TO  335 

2550  380  PRINTS"  PERCENT  INCREMENT" I READ S DpER 

2560  ir(DPE?,LE.,01)  PRINT  502 

2570  ir(DPET,LE,,01)  GO  TO  380 

2580  65  IF(SlnP.lT..5)  GO  TO  76 

2590* 

2600*  ‘“COMMUNICATION  RANGE  7 


2610* 

2620  500  rOF(UT(»8) 

2630  64  PRINT:"  communication  range  contour  T" 

2640  IRo-0 

2650  READ  Slb.XFGE 

2660  IF(IRGE-IT)  70,72.70 

2670  70  ir(IEGE-IN)  7U.76.74 

2680  74  PRINT  502 ) GO  TO  64 

2690  72  IRG=1 

2700* 

2710*  *** IRG*  1 : COMPUTE  COMMUNICATION  RANGE 

2720* 

2730*  ***FECUrST  PARAMETERS 
2740  PRINT:"NAME  or  SCREEN  TUB" 

2750  READ  500, FILENAME 

2760  40  PRINT:"  RECEIVER  SENSITIVITY  (DBM)" 

2770  PEaP : nDM 

J780  IF ( DBM , GE , 0 , ) PRINT  502 l IT ( DBM . GE . 0 , ) GO  TO  40 
2790  15  PRINT: " GROUND  TRANSMITTER  POWER  (WATT)" 

2800  READSAPIN 

2810  IF(APIN.IE.0,)  PRINT  502; IF ( APIN . LE, 0 , ) GO  TO  15 
2820  76  IF<Ct.GT,,5)  GO  TO  94 
2830  IAA=irp4IFT+IRG 
2840* 

2350*  »**CHECIC  IF  ANI  OUTPUT  DATA  IS  REQUESTED 
2860* 

2870  IF(IAA)  92,92,94 
2880* 

2590*  ***PRINT  ERROR  MASSAGE 
2900* 

2910  92  PRINT  502; GO  TO  550 
2920  94  RETURN;END 

29308  FORTRAN  ASCII, KFORH.NINO  LNKM2A 

2940  SUBROUTINE  LINKH2 
2950  ASCII  ANSW.AKSV 

2960  COMMON  A , HO , K 1 , H3.P.A  , X,  X.  Z.  A V ,B  V,  AE,  BE , NS,  1 1 , IF , IT,  XX,  II,  IZ,  IE, 

29704FR, IV, ritf.&P, SIMP, NX, AUTO, KW, CL, KB, AiNT, AINP.APHI.ATHE, I PA.IPD 

29804, HU, H5,IFP,IFT»I3G«DBM,ISIMP,IcI>»IALP,IALT»IRGE,IAUTO, IGF, TDD 
29904, ALT (6) ,GRF.L,TRANEl,ANTEt.NA,DTA,8TA,APIN,FA,IDB,DPER, 

SOOOlrlLLNAME 

3010  DIMENSION  0 ( 200 ) , HO ( 200 ) , HI < 200 ) * H3 ( 200 ) , RAC 200) ,X<200>  »Y<200> » 

3020S7C200)  ,A<.'<200>  ,RV<200>  rAZ<361)  ,BZ<200)  r NS (200)  ,L1  <200) , IF <200) , 

3030X11(20) ,XXC2C > , YY ( 20 > , Z7< 20 > , IZ< 40) ,FR< 10) ,10(10) r H4 < 20) >H5< 20) , 

3040*r A ( 'lO > , STDALT <6 ) ! CHARACTER  FILENAME  *8 

3050  11=  119S37828  16; IN- 10477387808 
3060  STDAL7 ( 1 ) - 1 000 , 

3070  SrcALT(2)*-5000, 

3080  STDAIT;3)«10000. 

3090  STDALT ( 4 ) c 1 5000 • 

3100  STDALT(5)-20000. 

3110  STLALT(6)=35000. 

3120  IIN-98C6299 168 
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J i 33  nnM«n«i 
31«0* 

3150*  **»STDALr*STANDARD  AIRPLANE  ALTITUDES  IV  FEET 
3160* 

3170  CDTR-3. 1415927/180, 

3180  MX3-10 
3190* 

3200*  ***MX3»KAXIKUH  NUMBER  OT  RUJIS 
3210* 

3220  IF(IRG.EQ.O)  GO  TO  94 
3230* 

3240*  ***EETER  SITE  PARAMETER  TOR  COMMUNICATION  RANGE  CORTOUR 
3250* 

3260  PBIKTS"  * 

3270  PRINTS-t****  ENTER  SITE  PARAMETERS  ♦♦♦♦♦" 

3280  PRINT  : " " 

3290  print:’  ground  elevation  in  EEIT" 

3300  peao:gpel 

3310  print:"  TRANSIT  ELEVATION  in  FEET" 

3320  read:t;anel 

3330  PRINT:"  ANTENNA  ELEVATION  IN  FEET" 

3340  READ  : ARIEL 

3350  45  PRINT:"  ANTENNA  OFFSET  FROM  TRANSIT  T" 

3360  READ; AKSV 

3370  IF(ANSV.FO.IN)  GO  TO  60 
3380  IFCANSV.KS.IY.AND.ANSV.Nf .IN)  PRINT  502 
3390  ir<ANSV,NE.IY.AND,ANSV.NI.IN)  GO  TO  45 
3400  70  PRINT:"  ENTER  DISTANCE  TO  ANTENNA  IN  FEET" 

3410  READ:DTA 

3420  IF ( DTA , LT. 0 . ) PRINT  502; IF ( DT A . LT. 0 . ) GO  TO  70 
3430  PRINT:*  BEARING  TO  ANTENNA  IN  DEG  AND  MIN  (DD.HK)" 

3440  EEaD:BEAR 
3450  DEG=INT(BEAR) 

3460  BTA=(DrG*(BEAR-DEG)/6.)*CDTR 
3470  60  PRINT:  " STANDARD  ALTITUDES  ?» 

3480  REaD  : RNSV 

3490  IFCAHSV  , EQ,  IY)GO  TO  20 

3500  IFCANSV.NE.IY. and, ANSW.Nt. IN)  PRINT  502 

3510  IFCANSV.NE.IY. AND. ANSW.NF. IN)  CO  TO  60 

3520  24  PRINT  : « NUMBFR  OF  altitudes  to  be  CALCULATED  (1-6J* 
3530  read  : NA 

3540  IFCNA.LT. 1, OR. NA.GT. 6)  PRINT  502 
3550  IF ( NA  .IT.  1 .OR.  KA  .01.  6)GO  TO  24 
3560  PRINT*."  DESIRED  ALTITUDES  IN  FEET' 

3570  READ  : (aLT(I),  I ■ 1 , NA ) 

3580  GO  TO  900 
3590  20  NA»6 
3600  DO  26  I c 1 , N A 
3610  AlT(I)  « STD ALT ( I ) 

3620  26  CONTINUE 
3630* 

3640*  ***PRINT  OUT  INPUT  DATA  OF  THE  COMMUNICATION  RANGE 


3650* 

3660  900  PRINT  915,GREI,TRANEI,ANTEL 

3670  IF(ANSV,EQ.IT ) PRINT  916.DTA.BZAR 

3680  916  FORMAT { " DIST  TO  APT  ( FT ) «",F8,1/, 

36906“  BEAR  TO  ANT(DD.MM)«",F9.2,/) 

3700  PRINT ;"AIFCRArT  ALT'S  ARE  IN  FJ  AGl,  " 

3710  PRINT  917, ( ALT ( I ) , 1= 1 , N A ) 

3720  2*5  CONTINUE 

3730  915  FORMAT(//,"OGROUND  ELEV  «",r8,1,"  FT"!/, 

37406“  TRANSIT  ELEV  =",r8.1,"  FT",/, 

37506"  ANTENNA  ELEV  *",F8.1,"  T T“,/) 

J760  917  FORMAK"  ALT'  S»“,6F8 , 1,//) 

3770  PTA”DTA* ,30*8 

3780  ANTEL«ANTEL*,30*8 
3790  TRANEL=TRAKEl*,30*8 
3800  GREL=GREL*.30*B 

3810  502  FORHATf"  INPUT  ERROR,  TRX  AGAIN 

3820  9*  IF ( SIMP , LT , , 5 ) GO  TO  350 
3830* 

33*0*  «**REQUEST  MULTIPLE  RUN  DATA 
3850* 

3860  PRINT:"  * 

3870  192  PRINTS"  KUHBER  OP  RUNS" 

3880  REaDsICV 

3690  IF(KH.LE.O)  GO  To  19* 

3900  ir(KW-«X3>  196,196,19* 

3910  19*  PRINT  502 J GO  TO  192 
3920  196  DO  228  J*1,KV 
3930  IV(J)*0 
39*0  PRINT  1*0, J 

3950  1*0  FOFMAT ( " **•*  RUN  »",I3,"  ♦*•**) 

3960  223  PRINT!"  FREQUENCT  ( BHZ ) " ; READ  I FR ( J ) 

3970  IF{FR(JJ.LE.O.)  PRINT  502 J IF ( FR ( J ) , IE . 0 , ) GO  TO  223 
3980  FRE*FR(J) 

3990  628  PRINTS”  FED  ANTENNA  {«)"; READS  IV ( J) 

*000  IN*IV(J) 

*010  IF(IW)  22*, 22*, 222 
*020  222  IF(IW-NB)  225,225.22* 

*030  22*  PRINT  502SGO  TO  628 

*0*0  225  IF(IT(IW) .EQ.1000)  GO  TO  22* 

*050  IF ( FRE-200 . ) 226,226,227 
*060  226  IF ( IT ( IN ) “ 1097 ) 210,229,210 
*070  210  IF ( IT ( IW )• 1 97 ) 228,229,228 
*080  227  IF( IT( IN )” 1 1 8 1 ) 228,229,228 
*090  229  PRINT  502;GO  TO  223 
*100  228  CONTINUE 
*110  GO  TO  *00 
*120* 

*130*  •**rRINT  OUT  INPUT  DATA  OF  THE  GENERAL  PROGRAM 
*1*0* 

*150  350  PRINT  *2 , IIN, IGF, IAUTO, FR ( 1 ) , NN 
*160  HQ*NR 
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#170  irjSR.GT.B)  so»b 
4180  PRIST  55S, (I, 1=1, SC) 

4190  555  FOPHAT(“  AST#  16,718) 
4200  ir{*UT0.GT.,5)  GO  TO  4 
4210  PRIST  14,<A(I),I«1,KB) 

4220  4 FRIST  16 , ( VO  ( I ) , 1*1  ,S8 ) 
4230  PRIST  18, <K1(I),I»1,S*> 

4240  PRIST  22, (H3(I),I-1,BB) 

4250  PRIST  62, ( FA < I ) , I- 1 , SB ) 

4260  PRIST  64, (XII), 1=1, SR) 

4270  PRIST  28, (Y(I),I=1,8B) 

4280  PRIST  30,(Z(I),1»1,NS) 

4290  PRIST  32, ( * V ( I ) , I« 1 , SB ) 

4300  PRIST  34, (BV(I) ,I-1,SS) 

4310  PRIST  36, ( AZ ( I ) , I* 1 , SB ) 

4320  PRIST  38,  (BZ(I),I»1,RB) 

4330  KS=  1 


4340  GO  TO  450 
4350* 

4360*  **»r RIRT  OUT  ISPOT  SAT*  Or  THE  SXHPIE  PROOBAH 

4370* 

4380  400  PRIST  1 2, IIH, IGr, ISIHP, ICt, SB 
4390  NQ=NB 

4400  ir(SB.GT.8)  SQ-8 
4410  PRIST  555, {I, 1*1, HQ) 

4420  FRIST  4'4,  ( IT < I ) . I* 1 . SB ) 

4430  PRIST  64, ( XX ( I ) , I- 1 , SB) 

4440  PRIST  28, (TI(I),I*1,SB) 

4450  PRIST  30,(IZ(I),I*1,B8) 

4460  HH1-0.C5 

4470  IF(IIIl.EQ.XIK)HH1*KH1»0.0254 

4480  DO  99  I * 1 * K 8 

4490  ir(IT(I).SF.  1181)  GO  TO  99 

4500  ZZ ( I ) = 7Z ( I ) ♦ H H 1 

4510  99  C087ISUE 

4520  DO  156  1=1, SB 

4530  ir(H4(I).GT.1.E-lO)  118*1 

4540  156  COSTIKUE 

4650  ITJIIB.SE.O)  PRIST  1 52. ( H4 { I ) , 1*1 , SB ) 

4560  IF(IIB.HE.O)  PRIST  154 , ( H5 ( I ) , X*  1 , SB  ) 

4570  152  rOKHATr  l -r  , 8T  8 , 3/ ( 7X  , 8r  B , 3 ) ) 

4580  154  rO?IUT("  D -*,8r8.3/(7X,8r8i3)) 

4590  39  roRMATC  VER  PAT*",2X,A1) 

4600  450  PRIST  39,1*1.? 

4610  IF(lrP.EQ.O)  GO  TO  «53 

4620  PRIST  6 6, A PH I, A I. VT 

4630  453  PRIST  558.IALI 

4640  irtiri.Ea.o)  go  to  78 

#650  558  rornur  HOR  TAT*-, 2X. * 1 ) 

4660  PRIST  41, ATHF, AISP 

4670  PRIST  300, IPD 

4680  IF(IPA.Ea.O)  GO  TO  78 


4. 


I 


66 


to 6 9 o 300  rormr  pat  uist-",ix,ai) 

*700  PRINT  310,IDD,DPER 

*7io  310  forhaK"  plot-",ix,ai,ix,"  i»c»",f6. i,*  x-) 

*720  78  IFtSIMP.CT. .5)  PRINT  80.IR0S 
*730  80  FORMAK  " COM  RNG=>"  , 2X,  A 1 ) 

*7*0  XF(XRG.EQ.O)  GO  TO  660 
*750  PRINT  100.DBH.APIN 

*760  100  FORMAT ( " REC  SEN  ( DBM ) -* , F7 . 1 , * GROUND  TPV  ( » ATT ) ■" . P6 , 1) 

*770  *1  FORMAT ( " THETA-",F6«1»1X»"  FLOT  INC-",F7,2) 

*780  12  FORMAT)///"  DIB-"  , IX,  A 1 , IX,  " GP*"  » 1X.A1J1X,"  SHIP-",  1X.A1,  1X« 

*7908'  COUPL-", 1X.A1, IX,"  Nfi-",I3) 

*800  1*  FORMAT ( “ #SEGs-“,8f8.2/(7x,8F8.2)) 

*810  16  FORMAT ( " L •" , 8F8 . 3/ ( 7x. BF8 , 3) > 

*820  18  FORMAK"  LP  8r8 . 3/( 7x, 8F8.3) ) 

*830  22  FORMAK*  FP  , 8f8 . 3/{ 7X . 8 T8 . 3 ) ) 

#840  62  FORMAK"  R , Br8 . 5/ ( 7x , 8F8 , 5 ) ) 

*e5C  6#  FORMAT)"  X >".8F8.3/(7x,tre,3)) 

*860  28  FORMAK"  x , 8F8 . 3/ < 7x , 8P8 , 3) > 

#870  30  roRMAK’  Z »" , 8r8 . 3/ ( 7X , 8F8 , 3 ) ) 

#880  32  FORMAK"  RE  V , 8F8 . 3/ ( 7x, 8 F8 . 3 ) ) 

*890  3*  FORMAT)"  IB  V *" , 8F8 . 3/( 7x. 8 FB ,3 ) ) 

*900  36  FORMAT)"  RE  ID»", 8F8 . 1/( 7X.SF8 , 1 ) ) 

#910  38  FORMAT)"  IB  ID«" ,8F8 , 1/< 7x, 8P8. 1 ) > 

*920  *2  FORMAT)///"  DIB-", IX, A1, IX,"  GP-". IX, A 1 ; IX, ■ AUTO-", IX# A1, IX, 

#9308"  FREQ=",F8.2, IX,"  NF«",I3) 

*9*0  «#  FORMAT)"  TTPE  »" , 818/ ( 7X, 818 ) ) 

#950  66  _ FORMAT ( * PHI  -",F6.1,1X,"  PLOT  IBC»",r7.2) 

*960  660  RETURNJEND 

*9708  FORTRAN  ASCII, NFORM, NINO  ENKK3A 

*980  SUBROUTINE  LINKB3 

*990  COMBOS  A,H0,H1,H3,RA,X,T,Z,AV,BV,AZ,BZ,NS,l1,IF,ir,XX#TT,ZZ,IR  , 

50008FR,IV,IlH,GP,SIMP,NN,AUTO.KH,Ct,NB,AlNT, AINF,APHI,ATHE,IPA,IPD 

5oio6,h*,k5,xfp,ift,I3g,dbb,isxkp,xcl,ialp,ialt,xrge,xauto#xgp#xdd 
50208, Alt { 6 ), gRML. TRANEL, ANTE’ tNA, OTA, BTA.APIN, fa, IDB.DPER, FILENAME 
5030  DIMENSION  A ( 200 ) , NO ( 200 ) , h 1 ( 200 ) , H3 (300 ) , H A « 200 ) . X ( 200 ) ,1(200 ) . 

30*0  «Z<200>.AV{2<1o).BV{2001,AZ<361).Bs(200).NS(200).L1(200),IF(200). 

5050  ETK  20  ).  XX  ( id.  XT  ( 20  ),  ZZ  ( 20  ),  IZ  ( *0  ),  FR  ( 10  ),  IV  ( 10),  H*(  20  ),HS(  20), 

5060  6rx(U01..SlSAlK6)JCHARACIEB  iILENABiS*8 

5070  Integer  runno 

5080  BaXS=500jIN £-103*3170080 

5090  Iy»  1 1953782816 

5100* 

5110*  ***IBE*METERS 

5120*  •••MAXS-MAXIBUB  NUMBER  OF  segments 
5130* 

51*0  250  rOrMAT(3l*,I2,2F3.0) 

5150  252  FORBAK9F7.3) 

5160  25*  rO?.MAT<8rR,5) 

5170  256  F0RBAT(6E11.3) 

5180  253  FOrBAK«I3,*F7.2,F6. 1 ) 

5190  260  FOFBAKI5,  151*) 

5200  AIN- 1 « 
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S2io  ipuih.ne.ihe)  ain*.0254 
5220  «x=1 

5230  ir(sxnr,GT,,S)  print  io 

5240  10  PORMAT ( //"  RUN*  PREQ(HHX)  ART  PED(»)") 

5250  DO  456  1*1, KV 
5260  LXY*0 
5270  I J* 0 
5280  PRE*PR<1) 

5290  IP(SIHP.LT.,5)  60  TO  450 
5300* 

5310*  •••CALCULATE  t STORE  NECESSARY  PARAMETERS  TOR  THE  SIHPLE  P*06RAH 

5320* 

5330  PRINT  30,l,PB(l),XV(l) 

5340  30  roR.r*T(i4,5x,re,2,3x,i6) 

5350  DO  350  1*1, NB 
5360  NN=1 

5370  IP ( XT ( I ) . EQ , 1 097 ) Ntl-5 
5380  XP(XT(7) ,ZQ, 197)  NM-26 
5390  DO  340  0*1, Nn 
5400  AJ*J;IC*IJ*1 
5410  AV(XJ)*0.|BV<XJ)*0, 

5420  AZ(XJ)*SO.|BZ<IJ>*0. 

5430  X<: J)*XX<I)‘AINJY(IJ)*II(I)*AX» 

5440  XKIT(I).EQ,  1000)  60  TO  132 
5450  IP(Cl-1.)  142,145,145 
5460  142  ir  (PP.E-iCO,  ) 143,143,ia4 
5470  143  A<IJ)*8. 5*250, /rFEJGO  TO  148 
5460  144  A(I0)*13. 3*250. /PRUGO  TO  146 
5490  145  Xr(PRt-200,)  144,144,146 
5500  146  A(IJ)*14, 8*300, /PRE 
5510  148  iramj.NE. ’97)  60  10  158 
5520  AZ(IJ)*0. 

5530  IP(J.E2,1)  60  TO  82 
5540  ir(J.E3.2)  GO  TO  84 
5550  IP(J.LE,14)  60  TO  86 
5560  Z(XJ)*,51*ZZ(I)*AIN 
5570  A(IJ)*11, 6*300. /TRE 
5580  H0(IJ)=, i7jrr(IJ)*,0035 
5590  60  TO  340 
5600  82  A(IC)=4, 2*300. /PRE 

5610  ir<CL.3T..?,oS,PAE.CT,200.)  A ( X J ) *6 , 25* 300,/PRE 
5620  H0(XJ)-,48jRA(XJ)*,0175{ I(XJ)*XZ(X)*AXN 
5630  60  TO  340 


5640  84  AZCJ)*S0.  JH0(IJ)*.03|RA(I3)-.002 
5650  Z<IJ)=.4?*ZZ(I)*AIN 


5660  IKPRE.LE.200.)  GO  TO  340 
5670  IP(ZV(L).NE.I)  GO  TO  340 
5680  A»(IJ)*1.JAZ(IJ)*0, 

5690  LXY*1 

5700  GO  TO  340 

5710  86  Z(IJ)*,48*ZZ(I)*AIN 

5720  H0(XJ)=,45jRA(IJ)*,0045 
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573C  A{IJ)r£,66*300,/FRE 
3740  IF  { FRE. IE , 200. ) SO  TO  46 

5730  ir(IV(L).EQ1X.OB.Cl.0T..3)  A ( XJ ) *8 , 89* 300 ,/FRE 
S76C  GO  TO  340 

5770  45  IF(Ct.IT.,5)  A(IJ)=4, 44*300, /FRE 
5780  GO  TO  340 

3790  15?  ir(HK.EC.I)  GO  TO  320 

3800  RA(IJ)=.0754;H0(IJ)=.54;H1 (IJ)*t27;H3(IJ)»,27 
3810  IF(J,E0,5>  GO  TO  370 
5820  GO  TO  330 

5830  370  RA<IJ)b.C191/HO(IJ)«.279;AZ(IO)*O.JH1(IJ)*O.JH3(I.J)*0, 

5340  A(IJ)*7,4*300/rRE 
5850  GO  TO  330 

5860  320  RA(IJ)«,0628;HO(IJ)*1,1684jH1(IJ)»,8001;H3(IJ)b,8001 
5870  330  Z(IJ)TZ(I)*AXS*(AJ-1.)*<H0(I.J)*.1«61) 

5880  IF(J,E0,5)  Z(IJ)=ZZ(I)*AIN*4.*, 54*3,*, 1461 
5890  imvUI.RS.X.OR.J.EQ.S)  GO  TO  340 
5900* 

5910*  ***CALCUiATE  ANTENNA  AT1097  FEED  VOIIAGZS  AV,BV 
5920* 

5930  AAA»J-1 

5940  £ETA*2. *3.141593*. 04166*FRt/(, 6951*300.) 

5950  ABC«BET»*AAA 

5960  IF ( J , EQ , 4 ) ABC=.00378094*FRE 

5970  AV{IJ)=COS(ABC) JSV(IJ)«-SXN(ABC)iAZ(IJ)»0. 

5980  A(IJ)*13. 3*250. /FRE 

5990  lhFRE.GT.200.)  A ( I J ) * 1 4 , 8*300 , /FRE 

6000  GO  TO  340 

6010  132  AZ(JJ)=0.JK1(XJ)«0.;Z(IJ)»ZZ{X)*AIH 
6020  H0(XJ)=HU(I)*AlN;AA(XJ)=HS(I)*AI>!/2, 

6030  A(IJ)=4.*300./FRE 

6040  IF ( FRE . GT • 200 , ) A ( X J ) *6 . *300 , /FRE 

6050  340  CONTINUE 

6060  350  CONTINUE 

6070* 

6080*  ***CALCUIATE  i STORE  NECESSARY  PARAMETERS  FOR  THE  GENERU  PROGRAM 
6090* 

6100  450  KK=0 , 

6110  ZP(t,GT,1)  GO  TO  660 
6120  XF(3IMr,GTt.5)r,0  TO  180 
6130  DO  50  1*1, NN 
6140  ir(IXM.EQ.IME)  GO  TO  560 
6150  H0(I)*.0254*h0(I) 

6160  H 1 ( I ) * . 0?54*H 1 ( X ) 

6170  H3(I)*.0254*h3(I) 

6180  RA(X)«.0?54*FA(I) 

6190  X(I)n.0J54*x(X) 

6200  T(I)a, 0254*1(1) 

6210  Z(I)  = ..'254*Z(I) 

6220  560  ABV»AV(I)**2*BV(I)**2 
6230  IF(AB¥.J.T,1.E-20)  GO  TO  50 
6240  KK-KK*1 
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6250  KT*I 
6260  SO  COKTXHUE 
6270  ISO  112*0 
6280  DO  182  1=1, UN 

6290  XF(8Z(I)*BZ(I>.GT. 1.E-10)  II2»1 

6300  182  CONTINUE 

6310* 

6320*  ***VIITE  OUTPUT  IK  THE  01 
6330* 

6340  WRITE { 01,250)  KB , KM , KW, 112 . GP , Cl 
6350  WRITE (31,252)  ( HO (X > ,X«  1 » HN ) 

6360  WRIIE(01,254)  ( R A ( X ) , I* 1 , NN  ) 

6370  WRITE (01, 252)  ( X < I ) , 1=1 , NH ) 

6380  WRITE ( 01,252)  ( 2 { I ) , 1 = 1 , KN ) 

6390  WRITE (01,252)  ( Z ( I ) , X« 1 , KN ) 

6400  ir(H2.KE,0)  WRITE  ( 0 1 , 256  ) (BZ(I),2=1,NN) 

6410  42  FOR>!AT(4F8.1,F9,6,2F6.1) 

6420  WRITE( 0 1 , 258 ) IFP,  IFT. IDB, IRG , ATH*, APHI , AINT  , AlNP,  DPER 
6430  IF(IRG.EQ.I)  WRITE (01, 42)  GREL, TRANEE, ANTEl, DTA, BTA, D8«, A»ZH 
6440  XF(IRG.EQ.I)  WRITE ( 01,252)  (FA ( X ) ,I« 1 , KB ) 

6450  IF(IRG.EQ.I)  WRITE ( 01,35)  HA,  ( AH(X)  , X- 1 ,HA  ) 

6460  35  FORMAT (X3, (6F8, 1 ) ) 

6470  IF(MB.FE.O)  WRITE( 01, 260  ) ( IT ( X ) , X= 1 , KB ) 

6480* 

6490*  ***CALCULATE  SOB-AHTESK AS  PARAMETERS  AHD  CHECK  FOR  POSSIBLE  ERRORS 

6500  660  VAVE-300./FRE 

6510  HM=0JII=0 

6520  DO  210  2*1, NW 

6530  CC=1 

6540  IF(GP.GT.,5.AHD.Z(I).I.T.1.E-10)  CC=0, 

6550  IF(AUT0,LT..5)  Go  TO  100 
6560  IF(KK.EO.I)  GO  To  60 
6570  GO  TO  70 

6580  60  DD=(X(KP)-X(t))**2*(T(KE)-T(X))**a 
6590  DS=SQRT(DD) 

6600  BB= 1 0 
6610  A ( I ) =B8*  . 8 

6620  IF(DS/VAVE.GT.2.5)  A(I)«BB*.6 
6630  IFfDS/WAVE.lT.I.)  A(I)=B8 
6640  IF(I.EQ.KF)  A ( I ) *8B*  1 , 5 
6650  GO  TO  100 
6660  70  A(I)=8 

6670  XF(AV(I)*AV(I) ,GT, 1 . E-10. OR , BV ( X ) *BV ( X) ,CT,  1,8-10)  A(I)=15 
6680  100  DEI=WAVE/A ( I ) 

6690  IF(SinptGl.,5)  GO  TO  120 

6700  IF(DEl.lT.2,«RA(I).ArD.RA(I).LX.,02)  GO  TO  110 

6710  IF(DEl.iT,.7»8A(I))  GO  TO  110 

6720  GO  TO  120 

6730  110  AA*WAVE/RA(I)/2. 

6740  IF(RA(I).GT..02)  AA=3.*AA 

6750  GO  TO  1*0 

6760  120  A0*H0 ( I ) /DEL-CC 
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6770  A1si:i(X)/Dri*1,-CC 
6780  A3=H3(X)/DEL*1,”CC 

6790  I0=A0JI1=A1JI3=A3JB0*I0;B1“I1JB3*I3 
6800  NS(I)=lO+1jJ1  = IW1jJ3  = I3M 
6810  IF(A0.T.T.50*.5)  NS(I)=I0 
682C  IFdO.CQ.O)  KS(I)=1 

6830  If(A1,I.7,B1  + t5,0K,J1,GT.NStI)  ) J1-I1 

68«o  ir(ii.ro.o)  j i» i 

6650  xr(A3,I.T.B3+,5,OR,J3,GT.NS(X))  03»I3 

6860  IF(X3.EQ.O)  J3-1 

6870  XF(J1.GT.NS(I) ) J 1 — NS ( X ) 

6880  ir( J3.5T.HS(I) ) J3«NS(X> 

6890  XF(X.EQ,1)  00  TO  130 
6900  HH=HM*KS(I-1) 

6910  130  11(1) -MH*J 1 
6920  ir(I)=KH+J3 

6930  IF(lr(X).EQ.L1(I))  GO  TO  160 

6540  GO  TO  210 

6950  140  PRINT  150,1. AA 

6960  150  FOEMAT("  «*<F>**  <<  THE",X3,"  TH  A(I)  HOST  BE  USS 

69706FS.1,"  >>") 

6980  GO  TO  200 

6990  160  ABv»AV(X)*AV(X)*Bv(X)«BT(X) 

7000  ABZ1*AI(I)*AZ(X)+BX(X)*BB(X) 

7010  ir(ABV.lT. 1.E-20)  GO  TO  210 
7020  XF(ABZ1,LT.1.E-20)  GO  TO  210 
7030  PRINT  190.1 

7040  190  FOF.IUK"  **<r>**  « THE", X3. " TH  IOAD  FEED  ABE  TOO  Cl>0SB 

70506  >>") 

7060  200  II=XI*1 

7070  210  CONTINUE 

7080  XF ( XX. NE.O ) GO  TO  500 

7090  Hfl=HH+NS ( NN ) 

7100  IF(NB.FQ.O)  GO  TO  192 
7110  XF(iXT.EQ.O)  00  TO  192 
7120  M«=0 
7130  NR=0 
7140  K-0 

7150  DO  195  J=1,N8 
7160  NX-1 
7170  KX  = 0 

7180  IF(IT(I) .EQ, 1097)  NX-5 

7190  XF(IT(I).EQ, 197)  NX-26 

7200  IF(NX.EQ.26.AND.IV(L).EQ.I)  KX-1 

7210  DO  195  ,1  = 1, NX 

7220  K-K+1 

7230  XFfKX.rO. 1.AND.J,0T.3,AND.J.NE, 15)  00  TO  193 
7240  MH=HH*NS(K) 

7250  GO  TO  194' 

7260  193  N8=NR*NS(K) 

7270  194  L1(K)>L1(K)-NB 
7280  IF ( K ) -IF ( K ) -NR 
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7290  195  COKTIHUE 

7300  192  IFtMH.LE.HAXS)  GO  TO  220 

7310  PRUT  215, MM 

7320  215  FOF.HAK"  **<F>**  <<  HO,  Of  SEGMEHTS*,  X5,*  ARE  TOO  BIG  >>") 

7330  GO  TO  500 
7340  220  K-0 

7350  IF ( CL, LT, , 5 ) GO  TO  600 
7360  HZ=0 

7370  DO  410  1-1, NB 
7380  NH= 1 

7390  IF ( IT(I ) ,EQ, 1097 ) HM-5 
7400  IF(IT(I) ,EQ, 19?)  HM-26 
7410  DO  408  J-1,HM 
7420  K=K* 1 

7430  IF ( J , EQ, 5 ) GO  TO  408 
7440  IT ( IT { I ) ,FQ. 1000)  GO  TO  408 
7450  XF(HH,EQ,26,AHD,J,HE,2)  GO  TO  401 
7460  HZ=HZ* ’ 

7470  IZ ( HZ ) -IF { K ) 

7480  408  COHTINUE 

7490  410  COKTIHUE 

7500  600  IF  ( FIH , GT  , MX ) HX-MH 

7510  IIU-0 J 116*0 

7520  DO  184  Ixl, hh 

7530  IF(BV(I)*BV(I).GT,1.E-10)  II4-1 
7540  IF(AZ(IJ.GT.1.e-1Q)  H6-1 
7550  184  COKTIHUE 
7560* 

7570*  ***VRITE  4ENAIHING  DATA  IH  FILE  01 
7580  WRITE ( 0 1 , 40 ) HH, HZ, IV ( l ) , 114 , 116 , F* ( L ) 

7590  WRITE(01»252)  < A V ( I ) , I* 1 , HH ) 

7600  IF ( 114 , HE , 0 ) WRITE ( 0 1 , 25 2 ) ( BV ( I ) , I« 1 , HH ) 

7610  IF(II6.WE.O)  WRITE ( 01,256  ) ( AZ ( I ) , I- 1 , HH ) 

7620  WBITE ( 01,260)  ( HS { I ) , I- 1 , HH ) 

7630  WRITE(01,260)  ( L 1 ( I ) , I- 1 , HH ) 

7640  WRITE(01,260)  ( IF ( I ) , I- 1 , HH ) 

7650  IFCCL.GT..5)  WRITE ( 0 1 , 260 ) ( IZ ( I ) , I- 1 , HE ) 

7660  40  FORMAT(3I4.2I3,F7,2) 

7670  456  CONTINUE 

7680*  ***CALCULAT3  MAX  CORE  HAXK,HAX  TINE  HAXIIH 
7690* 

7700  HAXK-1018+HX**2*2/1024  *10 

7710  MAXTIH-150 

7720* 

7730*  *»*READ  RUH  #,  KORUH  TROM  03 

7740*  ***IHCREHEHT  RUH  * BI  1,  WRITE  IHTO  03 

7750* 

7760  PRIHT ! "DATA  CORRECT  ?* 

7770  READ  1303,1;  1303  FORMAT  (01) 

7780  ird.HE.IT)  RETURH 
7790  READ(03)  KORUH 
7800  HORUH“HORUK*1 
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7810  REWIND  03 

7620  WRIIE(03)NORUN 

7830  REWIND  03 

7840  CALI  DETACH(03,ISTAT, ) 

7850* 

7860*  ***VRITE  THE  PROPER  CONTROL  CARDS  I»  FILE  02 
7870* 

7680  WRITE  I 02 , 1301)  HAXTIH.MAXK. NORUN 

7890  1301  FORMAT ( "Si  LIMITS:", 12,",", 13. 'X. , 20K"/"$ : PRHFL 1 02 , W, S, BIA0000 1/" 
79004"DISTRT/"»I4) 

7910  IF  (IRG.LE.O)GO  TO  1440 
7920  WRITE(C2,1308)rlLENAME 

7930  1308  FOBMAT("$:PRNFH03,R/W,R,BLA0000l/RADIO/",A8) 

7940  1440  REWIND  02 
7950* 

7960«  •••PRINT  RUN  INFORMATIONS 
7970* 

7980  PRINT  1302, KORUN, MX, HAXTIH.MAXK 

7990  1302  FORMAT! IX, "PROGRAM  EXECUTION  NUMBER-", III/ IX, "ARRAX  DIMENSION!  ■" 
80004  13/ 1 X , "JOB  REQUIRES  ",I2,"/100  HR  TIME  AND  ",I3,"K  WORDS  CORE,") 
8010* 

8020*  **«REWIND  FILES  01,02,  THEN  CLOSE  FILES 
8030* 

8040  REWIND  0 1 ) REWIND  02;CALL  FCLOSE ( 0 1 ) J CALL  FCLOSE(02) 

8050* 

8060*  ***CREATE  OUTPUT  FILE  /0ISTRT/( KORUN  ) 

8070* 

8080  ENCODE (A, 1304) NORUN, 13, NORUN, 13 

8090  1304  TORMAT ( "ACCE  CF, BIA0000 1 /DISTRT/" , 14, " , 8/ 1 , 100/, W, CLEAR"* 
61004a1,2X,"REHO  ",I4,A1) 

8110* 

8120*  ***REMOVE  FILE  /DISTRT/ ( NORUN  ) 

8130*  ***SPAWN  CARDIR  PROORAM 
8140* 

8150  CALL  CALLTS("ACCE",A,46) 

8160  CALL  CALLTS("REMO",A(13),10) 

8170  CALL  CAILIS("CDIN",“RUN  DLAOOOO 1/R ADIO/  SA , RUN  1 , R’ , 30 ) 

8180  500  RETURN) END 

81908  FORTRAN  ASCII, NFORM, NLNO 

8200  COMMON  /LBLCOM/  GH,GV, SIZE, SPACE, LOC, ANGLE, LENG, TEXT 
8210  REAL  GK, GV, SIZE, SPACE, LOCI  2) , ANGLE 
8220  INTEGER  LENG(IO) 

8230  CHARACTER  TEXT*  1 ( 72, 1 0 ) 

8240  DATA  GH,GV/3.5,5./,LENG( 1),LENG(2)/7,0/ 

8250  CHARACTER  NOR UW*4. LINE* 26 , PTYPE* 1 , ISO* 1 , STIPE* 1 , STOP* 1 

8260  INTEGER  1ST AT, I0K/04Q 000000 000  0/, IRUN , RTTPE, R SIZE, NRUN , RTIPI 1 * I, J 

8270  REAL  AAHaX(3,10),AMaX(3.10),RCRD(4),A 

8280  LOC ( 1 ) *0 . 25 J LOC(2)=4.75 

82»0* 

6 1C 7*  •••REQUEST  PROGRAH  EXECUTION  NUMBER 

8 J 10* 

8)29  10  (RANT  2000 
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•330  READ  1000, KORUN 

8390  IF  (NORUN. EQ,"  ")  STOP 

•350  ENCODE(LINF,6000)  KCRUN 

•360  CALL  ATIACH101, LIKE, 1,0, ISTAT, ) 

8370  IF(ISTAT.NE.Ior)  GO  10  300 
8380  DO  30  1-1,  10 
8390  AAhAX ( 1 , I ) *0 , 

8900  30  AAHAX ( 3,1 ) ”0 , 

8910  PTYPE*”  " 

• 930* 

•930*  *** ADJUST  PAPER 

• 990* 

•950  PRINT  2010 

• 960  RlAD  1 C 30, LINE 
8970  REVXND  01 
8980  IRl'N"0 

•990  PRINT  2020, NORUN 
8500* 

•510*  ***READ  RUN  INFORHATXON  HEADINGS  PROH  PILE  01 
8530* 

8530  30  READ(01, END-80)  RTIPE, RSIZE, { RCRD ( I ) • I- 1 , RSIZE) 

8590  IF(RTirE.lr.O.OR.RTIPE.GT.5)  GO  TO  301 

•550  GO  10(90,50,30, 60, 70), RTIPE 

<560  90  Xr(R3X2E.KE.2.AND,RS:ZE,»E.J)  GO  TO  302 

•570  IRUN-IPUN*1 

1580  PRINT  2030, IR'JN. (RCRD(l), 1-1, RSIZE) 

8590  GO  TO  30 

8600  50  IF(F.SI2E.NE.3)  GO  TO  302 

8610  IP(IRUK.EQ.O)  IRUN-1 

8620  PRINT  2090, ( RCRD ( I) ,1-1 , 3 ) 

•630  AAKAX(J|IRUN)«RCRD(2) 

8690  GO  TO  30 

8650  60  lr(RSI2E.KE, 1)  GO  TO  302 
8660  PRINT  2050, RCRD ( 1 ) 

•670  J-1 
8680  GO  TO  30 

8690  70  XF(FSIZZ.NE.I)  GO  TO  302 
•700  PRIKI  2060 , RCRD ( 1 ) 

•710  J-2 
•720  GO  TO  30 
•730  80  PRINT  2070 
•790  100  REVIND  01 
8750  IRUN-1 

• 760* 

•770*  ***RECUEST  RUN  NUKBER  , NRUN 

• 780* 

8790  rRINT  2080 
8800  READ  1010, NRUN 
8810* 

8820*  ***REA0  RUN  DATA  FROH  TILE  01 

8830* 

8890  110  READtOl, END-303)  RTIPE 
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8850  IMRUPE.EQ.I.IND.IRUN.EQ.KRUN)  60  TO  130 
0860  IMIRUS.EC.I.AND.tTYPE.NE.1)  GO  10  120 
8870  IF ( RTYTE. BE,  1 ) GO  TO  110 

8880  i*::m=i?un*1 

8890  GO  TO  110 
8900  120  BACKSPACE  01 
8910  130  PRINT  2090 
8920* 

8930*  •••REQUEST  PLOT  TYPE ( F, H,  B,  o*  *) 

99U0* 

8950  REID  1020, UNB 

8960  IPitlHE.NE,"*-)  PTYPfLINt 

8970  IE(PMrE.SE."V".AND.PUP!.NE.*H",AND.PTTPE,NI.*B")  GO  TO  130 

8980  IF  (PTYPE  .NE.'V" >G0  TO  66  J IF  (AAMAX Cl  , NRUN  ) -EQ  . 0 . )G 0 TO  130  ICO  TO  67 
8990  66  IF  (PTVPE  • N£  • " H"  )GO  TO  6 8;  IF  CAAI1AXC2  , NRUN  > . Efl  . 0 . )G  0 TO  I30IGO  TO  67 
9CC0  68  IF<  CAAtlAXU  ..NR'JN)  .E3 .0  . ).OR.  CAAi1AXC2,NRUN)  .EQ  .0  • ) ) GOTO  130 
9010  67  CONTIWJE 
9020* 

9030*  ***R£Q'JE5T  IF  ISOTROPIC  CIRCLE*  ISO)  DESIRED 

90U0  • 

9050  RRUTT  2100  .-READ  1020>ISO 
9060  IFUINE.EQ.**")  GO  TO  195 
9070* 

9080*  •••REQUEST  fORHAT  OF  PLOT  DESIRED!  $,N,F), STIPE 

9090* 

9100  140’  PRINT  2110 
9110  REID  1020, STYPE 

9120  IFtSTYrE. RE, "S". AND. STIPE, NE.”»", AND, STIPE , N« . *F" ) GO  TO  HO 
9130  IF(STY?E.NE,"F“)  GO  TO  160 
9140  |»1. 

9150*  •••CALCULATE  THE  FACTORS  FOE  SCALED  ,NORKALUED 

9160*  ••*  OR  FAHILY  PLOTS 

9170* 

9180  DO  150  1=1,10 

9190  IMPUTE. HE. "H")  A = MIX  1 { A,  AAMAX  ( 1 , 1 ) ) 

9200  IF ( PTTPE . RE , "Y" ) A-AHIX 1 ( A, A AHAX ( 2, 1 ) ) 

9210  150  COrTINUE 
9220  ASSORT ( A ) 

9230  151  DO  155  1=1,10 

9240  IF(STTrE.EC,“S*)  A-SQRT ( AHAX 1 ( AArAX ( 1 , 1 ) , AAHAX ( 2, I ) , 1 , ) ) 

9250  AHAX( 1, J ) -SORT ( AIMAX ( 1,1) ) /A 
9260  AHAX(2,X)*SQRT(AA!!AX(2,I) )/A 
9270  155  AN AX ( 3 , 1 ) ■ 1 ,/A 
9280  GO  TO  190 

9290  160  IF ( STIPE , EQ , "3" ) GO  TO  151 
9300  LlNt-PTYpE 

9310  IMPUTE. NE,*0")  GO  TO  170 

9320  IT( ISO, EQ, "Y“ ) GO  TO  165 

9330  J=2 

9340  GO  TO  175 

9350  165  PRINT  2120 

9360  READ  1020, LIKE 
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9370  170  J»1 

9380  irtLIHE.EO.'H")  J-2 

9390  IF(J, Ea.1. AND. LINE, NE.-V*)  SO  TO  165 
9400  175  DO  180  1-1,10 
94  10  AHAX ( 1 , 1 > ■ 1 , 

91.20  AHA  X ( 2 , 1 ) = 1 , 

94  30  A = 30RT( AMAH (AAHAX( J,I)  , 1 , )) 

9440  180  AHAX ( 3, I ) = 1 , /A 
9450* 

9460*  ***FBQUEST  IP  STOP  BETWEEN  PLOTS 
9470* 

9*80  190  PRINT  2130 
9490  READ  1020, STOP 
9500* 

9510*  ***READY  THE  PLOTTER 
9520* 

9530  195  PRIST  2140 

9540  200  READ  1020, LINE 

9550  205  READ(01, END-304)  RTYPE1 

9560  IF(PTYrE.EQ."H".AND.RTTPE1.NE,5)  GO  TO  203 

9570  210  READfOl, END-304)  A 

9580* 

9590*  ***PLTL | ENABLE  PLOTTER 
9600* 

9610  PRINT  2150 
9620  J-1 

9630  IF ( RTYPE  1 a EQ , 5 ) J-2 
9640  A=AMAX ( a , NRUN ) 

9630* 

9660*  ***READ  ! RADIATION  PATTERN  DATA  PROH  PILE  01 

9670* 

9680  220  READ(01,END=305)  RIYPr , RSIZE, ( RCRD { I ) , 1“ 1 , BSIIE ) 

9690  IP ( RTY?S , NE , 3 ) SO  TO  230 

9700  IPIFSIZE.LT. 2. OR. RSIIE.GT. 4)  GO  TO  306 

9710* 

9720*  •♦•CALCULATE  PEN  POSITIONS  TO  PLOT  RADIATXOI  PATTERN 
9730* 

9740  CALL  PPLOT ( J , RCRD, A ) 

9750  GO  TO  220 

9760  230  IF(RTYPE,NE.5.0R.PTYPE.EQ,',V")  GO  TO  240 

9770  RTYPE1--RTYPE 

9780  IP(STOP.KE,-Y*)  GO  TO  210 

9790* 

9800*  ***PlTT i TERMINATE  PLOT 
9810*  ***CHANCE  PEN  7 
9820* 

9830  PRINT  2170 
9840  READ  1020, LINE 
9850  GO  TO  210 

9860  240  IF  f ISO , NE, "Y" ) GO  TO  260 
9870  IP(STOp,NE.-Y")  GO  10  245 
9880  PRINT  2170 
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9890  DEAD  1020, LINE 
9900* 

9910*  ***CAlCULATE  8 PRINT  ThF  DATA  POINTS  X,T  Of  ISOTROPIC  CJRCLI 
9920* 

9930  2 95  PRINT  2180 
9940  RCRD ( 2 ) ■ 1 , 

9950  A=AHAX(3,NRUN) 

9960  DO  250  1=1,8 
9970  DO  250  0=1,3 
9980  RCRD( 1 )=45«I*2*J-4 

9990  250  ir(0.EQ.2.0R.H0D(I,2) .EQ,0)  CALL  PPLOT { 2, RCRD, A ) 

10000* 

10010*  ***l£8El  EACH  PLOTTING 

10020  260  ENCODE(LIN£,6020)  NORUN, Nrun* 1 00 
10030  call  unpacmliue, i.text, i,7) 
loouo  call  label(-i) 

10050* 

10060*  »**ANOTHEB  PLOT  MON  THIS  FILE  T 
10070* 

10080  PRINT  2200 

10090  READ  1020, LINE 

10100  IrdINE.EO.’T")  50  TO  100 

10110  REWIND  01 

10120  CALL  detachcoi.istat.) 

10130* 

10140*  ***8ELEASE  PLOTTER  TILE  ? 

10150* 

10160  PRINT  2210 
10170  READ.  1020, LINE 
10100  IF ( LINE  , NE, "T" ) 00  TO  10 
10190  EtICODE(LlKE,6010)  NORUN, 13 
10200* 

10210*  »**REIEASE  THE  PLOTTER  FILE 
10220* 

10230  CALL  CALLTS("RELl",LINE,26) 

10240  80  TO  10 

10250  300  PFINT  3000.ISTAT;  STOP 
10260  301  PRINT  309 1 , RTYFE;  STOP 
10270  3C2  PRINT  3002.RSIZF}  STOP 
10280  303  PRINT  3003.NBUSI  GO  TO  100 
10290  304  PFINT  3004}  STOP 
10300  305  RTT?E=0 j GO  TO  230 
10310  306  PRINT  3006}  GO  To  302 
10320  1000  FORMAT ( A u ) 

10330  1010  FORMAT ( V ) 

10340  1020  FORMAT ( A 1 ) 

10350  2000  FORMAT ( " PROGRAM  TO  PLOT  OUTPUT  FROM  DISTORT"/ 

103608  * enter  program  execution  number") 

103-0  2010  FORMAT ( " ADJUST  PAPER") 

10380  2C20  FORMAK"  PROGRAM  EXECUTION  NUMBER-", »4) 

10390  2030  rORKAirOAUN  NUMBER", 13,"  ANI«  (FED)", 13,"  FREQ  <MH*)",f8,3, 
104004"  TIPE", IS ) 
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10410  2040  FORMAT!"  EMAZ=",F8.4,"  GAIN*".F7.3,"  GAIN(DB)«",F7,3) 

10420  2050  rORHAK*  VERTICAL  PATtr.RK#  phi  -".F6.1) 

10430  2060  FORMAT!"  HORIZONTAL  PATTER* # THETA«",F6. 1 ) 

10440  2070  FORMAT ( ///// / ) 

10450  2080  rORMATt*  ENTER  RUN  NUMEER") 

10460  2090  rORMATt"  ENTER  PLOT  TTPE  (VER,  HOR,  BOTH,  OR  ♦)") 

10470  3100  FORMAT ( " PLOT  ISOTROPIC  CIRCLE?’) 

10480  2110  FORMAT ( " ENTER  TIPE  OF  PLOT  DESIRED)  SCALED,  HOBHALlZED#  OR  ", 
104904"FAMILI") 

10500  2120  FORMAK"  ISOTROPIC  CIRCLE  RELATIVE  TO  VER  OR  HOi  PLOT?") 

10510  2130  FOFMAT ( " STOP  BETWEEN  PLOTS?’) 

10520  3140  FORMAT!"  READ!  THE  PLOTTER") 

10539  2150  FORMAT! lOX.’PLTL") 

10540  2170  FORMAK 10X,"PLTT"/"  CHANGE  PENS") 

10550  2180  FORMAT (10X,"PLTP") 

10560  2200  FORMAK 10X,"?LTT"/"  ANOTHER  PLOT  FROM  THIS  FILE?") 

10570  2210  FORMAK"  RELEASE  PLOTTER  FILE?") 

10580  3000  FORMAT ( " FILE  ACCESS  ERROR,  STATOS  •“,013) 

10590  3001  FORMAK"  ILLEGAL  RECORD  TIPE  -”,112) 

10600  3002  FORMAK"  ILLEGAL  RECORD  SIZE  -",112) 

10610  3003  FORMAK"  RUN  NUMBER* , 1 1 2 , * NOT  FOUND") 

10620  3004  rORNAK 1 0X, "PITT"/"  UNEXPECTED  ERD  or  FILE") 

10630  3006  rORHAK 1CX,"PLTT") 

10640  6000  FORMAT("»LA00001/DISTRT/",A«,"»") 

10650  6010  FORMAK’RELE  BLAOOOO 1/DISTRT/* , A4, A 1 ) 

10660  6020  FORMAT{AU,"-",I2) 

10670  ENP 

10680$  FORTRAN  ASCII, NFORH, NLNO  PsT*f 

10690* 

10700*  ***SUBPOUTINZ  PPloT-CALCULATE  X,I  COORPHATEJ  OF  PER  POSITIONS 

10710*  *•*  AND  PLOT 

10720* 

10730  SUBROUTINE  PPLOT ( J , CCRD, A ) 

10740  REAL  RCRD ( 2 ) 

10750  ANGR AD*RCRD ( 1 ) * 3 . 1 4 1 59/ 1 8 0 . 

10760  R=RCR:(2)*5000.*A 
10770  IX*R*5IN(ASGRAD) 

107P0  IT»R*C0S(ANGRAD)*,7 
10790  00  TO  < 10,20),J 
10800  10  IX-IX*5000 
10810  IT»IT*5000 
10820  GO  TO  30 
10830  20  IX=-IX*5000 
10840  IT»IT*5000 
10850  30  PRINT  1000, IX, II 
10860  RETURN 

10870  1000  rORHAK 10X,I4, 1X.I4) 

10880  END 

10890$  FORTRAN  ASCII, NFOPH, NLNO  X.l»Bl 

10900  SUBROUTINE  LABEL(INPTFILE) 

109l0*****Pr05RAMJ  LABEL  • GESeNATES  ALPHANOMIRICS  ON 
10920*  HP  MODEL  7200A/7202A  GRAPHIC  PLOTTER 


10930* 

109^0  COHHOS  /LBLCON/  GH, GV , S IZ E, SPACE, ICC , ANGLE, LENG , TEXT 

109S0  INTEGER  INPTrilE.CONPFILE/41/,ALPHANUN/U0/,lENG(  10 ) , IOK/OSOOOOOOOOOOO 
10960  SEAL  L0C(2),LINPKT,KAPPST.NA0 
10970  ChAS ACTEP * I TEXT(72,10) 

10930  LOGICAL  PENUP 

10990  CHARACTER  AKS * 1 , BLANK  * 1/ 1 H / 

11000  DIMENSION  INPUT ( 5 ) ,KFOINT < 4 1 ) 

11010  DATA  SIZE, SPACE, L0C.ANGLE/0.1, 50, ,0,,0.,0./’ 

11OJ0* 

1 103C*****GET  ALPHANUMERIC  PLOTTING  POINTS 
11040* 

1 1050  CALL  AITACH<40,”BLA00001/PLOTTER/AlPKANUn»",1,1,ISTAT,) 

11000  IF(ISTAT.EO.IOK)  GO  TO  5;  PRINT  901,  ISTATJ  GO  TO  190 
11070  5 CALL  RAKSIZ(«0,U1,  1 ) 

1 1 OPO* 

11090***  SKIP  ASKING  FOP  INST  IP  USJNG  PILE  INPUT 
11100* 

11110  IF(INrlFlLE.Ea.-l)  GO  TO  10S 

11120  IF(INFTFILE.IT.1,0R,INPTFILE.9T,39)  INPTPUE"41 

11130  iF(INFTrlLE.NS.COMPFHE)  GO  TO  10 

11U0* 

1 1 150*****A5K  IT  INSTRUCTIONS  ARE  NEEDED 
11160* 

11170  PRINT; "INSTRUCTIONS  ?" 

11180  READ  900, ANS 

11190  lFtANS,NE,"y*)GO  TO  11 

11200* 

112 1 o*****print  instructions 
11220* 

11230  PRINT  990 
1 1240  PRINT  991 
1 1250* 

1 1260*****GET  WIDTH  AND  HEIGHT  OP  GRAPH 
11270* 

11280  11  PRINT! "INPUT  PROH  PILE  ?* 

11290  READ  900, ANS 
11300  IF(ANS.EQ."N")GOTO  10 
113*0  lF(ANS.NE."Y")GOTO  11 
11370  PRINTs’FILI  NUMBER  ?" 

11330  RPADSINPTFILE 

11340  10  IP(lNPTriLE.E0.COHPPILE)PRINT|"GRAPH  SIZE  IN  MAJOR  CRlD  DIVISIONS! 
11350  IF (INPTfUE.EQ,COMPPILE)PRINI| "WIDTH" 

11360  READtlNpTFUE,  119,  END"  1313  )GH 
11370  119  PORMAT(V) 

11380  I? (INrTFlLE.Ea.COMPPILB) PRINT | "HEIGHT" 

11300  READtlRPlriLE, 1 1 9, END"  1 3 1 3 ) G V 
11400* 

1 14 10*****GEI  INPUTS 
1 1470* 

11430  lF(IN?TFUE.Ea,COMPPItE)PRIKT»"INPUTS  DESIRED!" 

11440  lF(INrIrILE.lQ.COMPFUE)PPINT| 
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114604  -1.TEXT, 2«SIIE, 3. SPACING, 4 = lOCATIOH,3.ARGll(  12345  FOR  AIL)" 

11460  2C  R2AD(lNPTFlLE»902,END.13l3)IK'PUT 
11470  Do  HO  1-1,5 
11480  IKI UTI«INPUT(X)*1 

11490  IrdSPUTl.LT.I.OR.IRPUTX.GT.S)  SO  TO  1313 
11500  SO  TO  ( 100, 50, 60, 70,80, 90), IVFUTI 
11510  50  irtISPTrllt.20.C0HPrllE)PRIMT»"T*X*l* 

11520  Do  55  J=1,10 

11530  READdNPTFILt,903,END«13l3)  dEXT(K,J),R.1.72) 

1 154*0  IENGU')=0 
11550  Do  53  K-1,72 

11560  53  IF(TEXT(K,J) .RE. BLANK)  LZNG(J)-K 
11570  IrllEVGt 3) .E0.0)  GO  TO  40 
11580  55  CONTINUE 
11590  GO  TO  40 

11600  60  :r(INPTriLE.EQ.COMPriLt)PRXHII"Slt»" 

11610  RZADdRPTFILE,  119,ERD"1313)SIZE 
11620  CO  TO  40 

1 1630  to  immriiE.Eo,conpriLr)pRxiiTi"sPACi»o  <*)* 

11640  READ (IRplriLE, 119, ERD-1 3 13 ) SPACE 
11650  GO  TO  40 

1 1660  80  IFdNPTFIlE.EO.COHPFIlt)rRXKTI"LOCAIIOR  ( X,  X ) ” 

116"0  READdNPTFILE, 1 19,END"l3l3)LOC( 1), LOCI  2) 

11680  GO  TO  40 

11690  90  IF(lNrTrilE.EO.COHPFlLE)PRINTI"A»OLE" 

11700  READ ( INPTFlLl# 1 1 9 , END" 1 3 1 3 ) ANGLE 
11710  40  CONTINUE 

11770  100  lF(I»PTrIlE.Ea.COHPFILE)PRX»T«"DO  TOO  WART  TO  RE-IRTEI  ART  INPUTS 
11730  READ(TNrTFILE,900,ERD«13l3)ANS 
11740  lF(ANS,EQ."T")GO  TO  185 
11750* 

1 1760****«BEGIR  CALCULATIONS  FOR  PLOT 
11770* 

1 1780  105  SCALE- SIZZ*9999 . / t 60 . *GY ) 

11790  SPATSx40.*ABS(SCALE)*( 1,  + SPACr/lOO,  ) 

11800  XLOC«LOC(1)*9999,/GH 
11810  TLOCLOC(2)*9999,/GV 
11820  ROT- AKGLE»3, 1415927/180, 

11830  LINPMT.O. 

11840* 

11850**»**ACTIVATE  PLOTTER 
11860* 

11870  PSINT:"  PLTl* 

1 16P0  DO  170  LIKE* 1,  10 
11890  LENGTH. LERG(LIHE) 

1 1900  Ir(LE;.-G7H.EC.0)GO  TO  180 
11910  KA»FN7*0. 

11920  DO  160  KN. 1 , LENGTH 
11930* 

1 1940**»**GF.T  CHARACTER  TO  BE  PLOTTED 
11950* 

11960  RAR.FLD(0,9,TEXt(K»,LIRE)  ) 
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11970  I F ( KAR , EQ, 32 ) GO  TO  150 

11980  lFtKAR.LT.33.OR.KAR.GT.126)  GO  TO  160 

1 1990  KAR=KAR-31 

12000  RFAD(ALPHANUn*KAP)KPOXNT 

12010  PENUP*,TRUE. 

12020  NK=KPOlNT( 1)*2 
12030  DO  1<*0  KOR-2.NK.2 
12040  lF<KP0INT(KOR).NE.(*1))OO  TO  no 
12050  rENUP=,TRUE. 

12060  GO  TO  140 
12070* 

12080*****SCALE  POINT  COORDIHATES 
12090* 

12100  110  X*rLOAT(KPOlHT(KOR))*ABS(SCALB)*r.ABPRT 
12110  T = UOAT(KPOIHT(KOR*1))*SCALE*tU!PNT 
12120  HAG«SJRT(X*X*T*F) 

12130  IF(HA5.E0.0.)X«1, 

12140  DIR«ATAn2(T,X) 

12150  AKGkOIR+ROT 
12160  IK-«A5*C0S(AHG)*GV/GH*XL0C 
12170  IV»HA5*SIK(ANG)*U0C 
12180  IF(XH.GT.9999.0R,IH.II.O)GO  TO  165 
12190  lF(IV,GT.9999,Oa,IV,lT.0)GO  TO  165 
12200* 

122i0*****PL0T  POUT 
12220* 

12230  lr(PENUP)GO  TO  120 
12240  PRINT  904.IH.XV 
12250  GO  TO  130 
12260  120  PRINT  905.XH.XV 
12270  130  PENVP". FALSE. 

12280  140  CONTINUE 
12290* 

12300****«ISCREHENT  CHARACTER  POINTER 
12310* 

12320  150  KARPNT-KARPXT*SFAXS 

12330  160  CONTINUE 

12340* 

12350«****INCREHENT  LINE  POINTER 
12360* 

12370  165  LINPNT-LINPNT-90. ‘SCALE 

12380  170  CONTINUE 

12390* 

12400*»««*DEACTIVATE  PLOTTER 
12410*' 

12420  180  PRINTi"  PITT* 

12430  iF(INrlFlLE.EQ.-l)  GO  TO  190 
12440* 

12450***** ASK  lr  KORE  INPUTS  ARE  DESIRED 
12460* 

12470  IF  (INrTFUE.EQ.COMPPHE)  PRINT  J"nORE* 

12480  READ(INPTrXL!,900,END-13l3)ANS 
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12490  IF(ANS,NE.*T*)G0  TO  190 
12500* 

125lO*****GET  MORE  INPUTS 
12520* 

12530  185  lF(INPTFlLB.E0.COMPFIlE)PRINTk*INPUTS  DESIRED  ( 12345)* 

12540  00  TO  20 
12550* 

12560*****CLOSE  DOW* 

12570* 

12580  1313  PRINT:"LABEI  PROGRAM  ABORT JO-IMPROPER  OSE  OF  Fill  INPUT* 

12590  190  CAU  DETACH(40,ISTAT,  ) 

12600  RETURN 
12610  900  FORHAT(AI) 

12620  901  FORMAT ( 10X,"PLTT“/"  UR  ABLE  TO  ACCESS  FILE  AlPH ANON#  STATUS  *,012) 
12630  902  FORMAT (511) 

12640  903  FORMAT ( 72 A 1 ) 

12650  904  FORMATMOX, 14,  11,14) 

12660  905  roRMAT(lOX,I4,iX,t4,iH*) 

12670  990  FORMAT! 

126P04"0LABEL  GENERATES  AIPHAROMERICS  ON  HP  HODBL  7200A/7202A 
126904  GRAPHIC  PLOTTER, ",/, 

127O04"OXOU  KILL  BE  ASKED  FOB  INPUTS  I "# /. 

127 104*01 -TEXT, 2-SIEE,3»SPACING#4»L0CATI0R,5-ARGIB( 12145  FOR  kU) I*,/, 

T27204*oanx  combination  of  the  five  numbers  max  be  used,*#/, 

127304*  SUCK  AS  14  FOR  TEXT  AND  LOCATION  CNIT.",/# 

127404*OTBXT  IS  THE  TEXT  TOO  KISH  PRINTED,  UP  TO  72  CHARACTERS  PER  LINE,*,/# 
127504*  A REQUEST  FOR  MORE  INPUT  IS  GENERATED  AFTER  EACH  LINE  ENTRt •"#/» 
127604*  TO  TERMINATE  REQUESTS  FOR  MORE  INPUT,  ENTER  A BLANK  LINE,",/, 

127704*  up  TO  10  LINES  MAT  BE  ENTERED  AT  A TIME,") 

12780  991  FORMAT ( 

127904"0SIZE  IS  THE  HEIGHT  OF  EACH  LETTER  IN  MAJOR  GRID  DIVISIONS,*,/, 
128004"  SIZE  IS  SET  AT  0.1  IF  YOU  DO  NOT  CHANGE  IT,*,/, 

12S104"0SPACING  IS  THE  SPACE  BETWEEN  LETTERS  IN  * OF  A LETTER*,/, 

128204"  VIDTH , LITTER  WIDTH  IS  2/3  OF  LETTER  HEIGHT,  SPACING  IS",/, 

128304*  SET  AT  50  IF  rOU  00  NOT  CHANGE  IT.*,/, 

128404*OIOCaTXON  IS  THE  POSITION  ON  THE  GRAPH  IH  MAJOR  GRID*,/, 

126504*  DIVISIONS,  MEASURED  FROM  THE  LOVER  LEFT  Of  THE  GRAPH,  TWO",/, 
128604"  NUHIESS  ARE  REQUIRED,  FIRST  THE  HORIZONTAL  POSITION,  THEN*,/, 

128704*  THE  VERTICAL  POSITION,  LOCATION  IS  SSI  AT  0,0  IT  XOU  DO  NOT*,/, 
128804*  change  it.",/, 

128904*0ANGLE  IS  THE  ANGLE  IN  DEGREES  FROM  THE  HORIZONTAL,  ANGLE",/, 

129004"  IS  SET  AT  0 IF  XOU  DO  HOT  CHANCE  IT.",/, 

129104*0PARJ.METErs  ABE  HOT  BESET  AUTOMATICALLY , THEY  WILL  RETAIN",/, 

129204*  THE  LAST  VALUE  INPUT .*,//, *0* ) 


12930  END 

12940$ 

OMAR 

TSFUTL 

129S0 

LBL 

ISFUTLOO.  SERIES  6000  TSS  FORTRAN  UTILITY  PACKAGE 

12960 

TTl 

TSFUtl,  SERIES  6000  TSS  FORTRAN  UTlLlTt  PACKAGE 

12970 

TILS 

SDL  4,0 

12980 

PMC 

ON 

12990 

EDITP 

ON 

13000 

DETAIL 

OFT 
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13010 

RET 

LNRSM, OH 

13020 

REFMA 

OH 

13030 

Lock 

.G3TSH 

DEriHl 

TSS  SYSTEM  MACROS 

1 3 0 U 0 

pkc 

orr 

13050TRA 

bool 

710200 

IRA  OP 

CODE 

I3060strrr 

13070 

13080 

13090 

13100 

13110, PIER. 


MACRO 

IDRP 

JI*1 

IDRP 

ekdm 

HULL 


REGISTER,  LOCATIONS 

*2 

*2.$  stuff  it l 


siurr 


THAT  WAS  SIMPLE,  WASN'T  it? 


13120 

BCI 

1,740621  VERSION  DATE 

13130 

date 

assembly  date 

1 3 1 U 0 

• SSDRL 

DEFINE  DRl  EQUIVALENCES 

13150 

REM 

13160 

REM 

13170 

REM 

THIS  UTILITY  PACKAGE  IS  DESIGNED  TO  BE  USED  AS 

13180 

REM 

A SUBROUTINE  BY  TSS  FORTRAN  PROGRAMS,  IT  PERFORMS 

13190 

REM 

MISCEL  ANEOUS  WORTHWHILE  < ? > FUNCTIONS  WHICH  ARE 

13200 

REM 

DIFFICULT  OR  IMPOSSIBLE  TO  PULL  OFr  WITHOUT  THE 

13210 

REM 

AID  OF  SUCH  A SUBROUTINE,  THERE  ARE  EIGHT  ENTRY 

13220 

REM 

POINTS  TO  THIS  ROUTINE,  THE  CHARACTERISTICS  OP 

13230 

REM 

WHICH  ARE  DESCRIBED  BELOW  — 

13240 

REM 

13250 

REM 

CALL  FLOBRK(FLAG) 

13260 

REM 

13270 

REM 

WHERE  FLAG  IS  A LOGICAL  VARIABLE,  WILL  ALLOW 

< '280 

REM 

RECOVERY  FROM  BREAKS  DURING  EXECUTION.  WHEN 

13290 

REM 

FLGBRK  IS  CALLED,  FLAG  NILL  BE  SET  TO  THE  LOGICAL 

13300 

REM 

VALUE  .FALSE.;  IF  A BREAK  OCCURS  SUBSEQUENTLY, 

13310 

REM 

IT  WILL  BE  IGNORED  AND  EXECUTION  CONTINUED,  BUT 

13320 

REM 

THE  LOGICAL  VARIABLE  FLAG  WILL  BE  SET  TO  .TRUE, 

13330 

REM 

TO  INDICATE  RECOGNITION  OF  A BREAK.  THIS  FLAG  HAT 

13340 

REM 

BE  TESTED  BY  THE  CALLING  ROUTINE  AT  ANY  TIME, 

13350 

REM 

AND  ANT  APPROPRIATE  ACTION  TAKEN.  TO  PROTECT 

13380 

REM 

THE  USES  AGAINST  INFINITE  LOOPS,  HOWEVER,  BREAKS 

13370 

REM 

ARE  COUNTED  AS  THET  ARE  RECEIVED;  IF  TWENTY  OR  MORE 

13380 

REM 

breaks  ARE  recognized,  EXECUTION  IS  TEMPORARILY 

13390 

REM 

SUSPENDED  AND  THE  FOLLOWING  MESSAGE  APPEARS  ■*- 

1 3400 

REM 

13410 

REM 

•BREAKS  STOP  OR  CONTIRUE? 

13420 

REM 

134  30 

REM 

AT  THIS  POINT  THE  USER  MAY  ENTER  ANY  OF  THREE 

13440 

REM 

REspoNsrst 

13450 

REM 

13460 

REM 

S WILL  IMMEDIATELY  TERMINATE  THE  PROGRAM 

13470 

REM 

A WILL  TERMINATE  THE  rROSRAM  WITH  A DEL  ABORT 

13480 

REM 

C WILL  RESET  COUNTERS  AND  CONTINUE  EXECUTION 

13490 

REM 

13500 

REM 

NOTE:  THE  DRL  ABORT  ALLOWS  TUMPING  THE  SUBSISTEH 

13510 

REM 

TO  A PILE  FOR  DEBUGGING  PURPOSES, 

13520 

REM 
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13530 

REM 

13540 

REM 

13550 

REM 

13560 

REM 

13570 

HEM 

13580 

REM 

13590 

REM 

13600 

reh 

13610 

REM 

13620 

REM 

13630 

REM 

13640 

REM 

13650 

SEN 

13660 

REM 

13670 

REH 

13680 

REM 

13690 

REM 

13700 

REM 

13710 

REM 

13720 

REM 

13730 

REH 

13790 

REM 

13750 

REM 

13760 

REH 

137-0 

REM 

13780 

REM 

13790 

REH 

13800 

REH 

1 3 8 - 0 

REM 

13820 

REM 

13830 

REM 

13840 

REM 

13850 

REM 

13860 

REM 

13870 

REH 

13880 

REM 

13890 

REM 

13900 

REM 

13910 

REM 

13920 

REM 

13930 

REN 

13940 

REH 

13950 

PEN 

13960 

REH 

13970 

REM 

13980 

REH 

13990 

REM 

14000 

REH 

14010 

REM 

14020 

REM 

14030 

REH 

14040 

REM 

CALL  BRKOrr 

CALLING  THIS  ENTRY  POINT  NULLIFIES  THE  EFFECTS  OT  A 
PREVIOUS  CALL  TO  FLGfiRK, 

CALL  NETOT 

CALLING  THIS  ENTRY  POINT  HILL  FORCE  ANT  OUTPUT 
ACCUMULATED  BY  THE  SUBSYSTEM  TO  BE  OUTPUT,  THIS 
is  or  SIGNIFICANCE  WHENEVER  SMALL  AMOUNTS  Of  OUTPUT 
ARE  BEING  GENERATED,  WITH  EXTENDED  PROCESSING 

intervening;  if  this  function  is  not  used  in 
such  A CASE,  THE  OUTPUT  WILL  NOT  BE  PRINTED  UNTIL 
THE  EXECUTIVE'S  BUFFEN  FILLS,  OR  INPUT  IS  REQUESTED, 
EITHER  OF  WHICH  MIGHT  NOT  OCCUR  FOR  A LONG  TINE, 

CALL  XEYIN ( BUFF, N ) 

THIS  ENTRY  TOINT  AILOKS  THE  USER  TO  RETRIEVE  I«B  LAST 
LINE  OF  INPUT  SO  LONG  AS  IT  REMAINS  AVAILABLE, 

THUS  IT  EFFECTIVELY  FUNCTIONS  AS  A BACKSPACE  COMMAND 
FOR  THE  TELETYPE,  THE  INPUT  IS  PLACED  IN  THE 
ARRAY,  BUFF,  IN  21AU  FORMAT.  N IS  AN  INTEGER  VARIABLE 
INTO  WHICH  WILL  EE  PLACED  THE  NUMBER  OF  CHARACTERS 
TRANSMITTED,  NOTE  THAT  N MAY  BE  EERO,  INDICATING  THAT 
THE  DATA  IS  HO  LONGER  AVAILABLE  DUE  TO  INTERVENING 
OUTPUT.  THE  DATA  PLACED  IN  BUFF  IS  NOT  EDITED  OR  BLANK 
FILLED  IN  ANT  WAY,  AND  WILL  INCLUDE  A CARRlAGB  RETURN 
CHARACTER  AT  THE  END  CF  THE  LINE.  N INCLUDES  THE 
CARRIAGE  RETURN, 

CALL  CALITS(SSNAME,LINE,NCHAR) 

THIS  ENTRY  POINT  ALLOWS  THE  USER  TO  PLACE  DATA  IN  THE 
RIN  BUFFER,  OR  CALL  ANOTHER  TSS  SUBSYSTEM,  OF 
BOTH,  IF  A SUBSYSTEM  IS  To  BE  CALLED,  THE  FIRST 
TOUR  CHARACTERS  or  THE  SUBSYSTEM  NAME  SHCUlD 
BE  PLACED  IN  THE  ASCII  VAPIASLE,  SSNAME.  IF 
SSNAME  CONTAINS  all  BLANKS  PR  IS  ah  INTEGER  EERO,  THE 
SUBSYSTEM  CALL  VILl  BE  BYPASSED,  IF  DATA  IS  TO  BE 
PLACED  IN  THE  KIN  BUFFER,  THE  COUNT  OF  CHARACTERS  TO 
BE  MOVED  SHOULD  BE  PLACED  IN  THE  INTEGER  VARIABLE 
NCKAR,  AND  THE  ASCII  ARRAY,  LINE,  SHOULD  CONTAIN 
THE  DATA  TO  BE  PLACED  IN  THE  BUTTER,  IN  21A4  FORMAT, 

UP  TO  81  CHARACTERS  MAY  BE  TLACED  IN  THE  BUFFER  IN  THIS 
MANNER.  if  NCHAR  IS  IEFP,  THIS  FUNCTION  WILL  BE 
BYPASSED.  AS  AN  EXAMPLE  Or  USAGE  OT  THIS  FUNCTION, 
ASSUME  THE  USER  WISHES  TO  OBTAIN  THE  STATUS  OF  A 
BATCH  JOB  WITH  THE  SNUM3,  12341.  THE  COMMAND  *T 
SYSTEM  LEVEL  WOULD  ES!  JSTJ  123UT<CN>, 

THIS  MAT  BE  ACCOMPLISHED  BY  THE  TSS  TORTRAN  PROGRAM 
BY  PLACING  THI  SUBSYSTEM  NAME(JSTS)  JN  SSNAME, 


} 
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10050  REH  PLACING  THE  COHKANO ( JSTS  123«T<CR>)  IK  HUE, 

14060  REH  AND  THE  CHAPACTFF  COUNT(H)  IP  NCHAR,  THE 

14070  REH  JSTS  SUBSYSTEM  IS  THEM  CAUSE  TO  PRODUCE  THE  JOB 

14080  REH  STATUS  HESS  AGE , 

14090  REH 

14100  REH  CALI  UlASCI ( ARRAY, CPOS , RCHAR , l ) 

14110  REH 

14120  REH  THIS  EHTRY  POIHT  IS  USED  TO  FORCE  ASCII  DATA  IH  AR 

14130  REH  ARRAT  TO  UPPER  CASE  OR  LOVER  CASE  ASCII  CODE,  THIS 

14140  REH  IS  OCCASIOHALLT  USEFUL,  IMASHUCH  AS  HOST  TELETYPES 

14150  REH  TRANSHIT  ONLY  UPPER  CASE,  AND  CERTAIN  PIECES 

14160  REH  or  SOFTWARE  (TSS  FORTRAN,  FOR  EXAHPLE ) REC06NIZE 

14170  REH  ONLY  UPPER  CASE  ASCII,  WHEREAS  LOWER  CASE  IS 

14180  REH  SOHEWHAT  EASIER  TO  WORK  WITH  AND  HENCE  IS  REQUIRED 

14190  REH  BY  OTHER  TIHESHARING  SOFTWARE.  ULASCI  WILL 

14200  REH  TRANSLITERATE  EITHER  WAY,  THE  DATA  IN  THE  ASCII  ARRAY, 

14210  REH  ARRAY,  IS  ACTED  UPON,  STARTING  AT  CHARACTER  POSZIION 

14220  REH  CPOS  (INTEGER),  FOR  NCHAR  CHARACTERS,  IF  l IS  EYEN, 

14230  REH  THE  DATA  VILl  BE  FORCED  UPPER  CASE)  IT  l IS  ODD, 

14240  REH  IT  VILL  BE  FORCED  LOWER  CASE. 

14250  REH  NOTE:  THE  CHARACTER  POSITION,  CPOS,  IS 

14260  REH  HANDLED  IN  THE  SAKE  WAY  AS  IN  THE  STANDARD  TSS 

14270  REH  SUBROUTINES,  GET«C,  PUTRC,  AND  HOVE#S, 

14280  REH 

14290  REH  CALL  BCDASC  ( FPOK,  IPOS  , TO,  OPOS  , NCKAR,  FUL) 

14300  REH  CALL  ASCBCD ( FROH. IPOS , TO, OPOS, NCHAR, FILL ) 

10310  REH 

14320  REH  THESE  TWO  ROUTINES  FUNCTION  AS  A KOVJfS  WUH 

14330  REH  TRANSLITERATION  AS  INDICATED.  IFOS  AND  JpO$ 

14340  REH  ARE  STARTING  CHARACTER  POSITIONS  IN  FROH  A»D  TO, 

14350  REH  RESPECTIVELY.  BEAR  IN  HIND  THAT  THERE  ARE  4 ASCII 

14360  REH  CHARACTERS  PER  WORD,  AND  6 BCD  CHARACTERS  PER  WORD, 

14370  REH  FILL  IS  A BLANK  FILL  CONTROL.  IF  THE  INTEGER  VARIABLE 

14380  REH  FILL  IS  ZERO,  THE  ARRAY,  YO>  IS  NOT  BLANK-TILLED) 

14390  REH  IF  FILL  IS  NONZERO,  THE  LAST  RECEIVING  WORD  OF  THE 

14400  REH  ARRAY  WILL  BE  BLANK-TILLED, 

14410  TTLS  FLGBRK 

14420  REH 


14430 

REH 

FLGBRK  BOUTIN! 

!— SET  BREAK  RECOVERY 

14440 

REH 

1 4450FLGBRK 

SAVE 

PRIHARY  ENTRY  POINT 

14460 

XWHIB 

ON 

INHIBIT  BREAK  PROCESSING 

14470 

baa 

BRKP.t 

GET  ADDRESS  OF  BREAK  RlN, 

14480 

OPA 

IRA, DL 

HAKE  A TRA  OUT  Or  IT 

14490 

STA 

13 

STORE  IN  BREAK  VECTOR 

14500 

LDQ 

*02000, DU 

LOAD  BIT  7 

14510 

DRL 

SETSWH 

AND  SET  SWITCH  WORD 

14520 

EAA 

2,1* 

get  LOC  OF  LOG.  VAR, 

14530 

STA 

FLAG, $ 

STORE  IN  POINTER  WORD 

14540 

STZ 

FLAG,** 

ZERO  THI  CALLING  VARIABLE 

14550 

RETURN 

FLGBRK 

and  return  to  caller 

14560 

TTLS 

klRKOFF 

85 


14570 

REM 

14580 

REM 

BRKorr 

ROUTINE— RESET  BREAR  RECOVERY 

14590 

REM 

14600BlKOrr 

SAVE 

ENTRY  TO  TURN  Of F BREAR  RECOVERY 

14610 

LDQ 

■02000, DU 

GET  A BIT 

14620 

DRl 

RSTSHH 

RESET  SNITCH  NORD 

14630 

ST* 

13 

ZERO  VECTOR 

14640 

ST* 

TEAS, $ 

ANO  FLAG  WORD 

14650 

IHHIB 

0 TT 

ale  THRU  MESSING  WITH  BREAR  PROC 

14660 

RETURN 

brkofe 

ANO  RETURN 

14670 

ms 

REYOT 

H 5 8 0 

REN 

14690 

REM 

REYOT 

ROUTINE. 

-FLUSH  TTY  OUTPUT  BUPrER 

147i,  i 

REN 

1 47 1 OKEYOT 

SAVE 

ROTNON  ENTRY 

14720 

eaa 

HSO,  $ 

FIND  A RUBOUT 

14730 

ORA 

66*32+3, 

DL 

ON*  CHAR  IN  POS  03 

14740 

STA 

Bur,s 

STORE  IN  SCRATCH 

14750 

eaa 

bue.s 

roRM  DRIVER  TALLY 

14760 

ORA 

64,  DL 

ONE  TALLY  ORLY 

14770 

STA 

TALLY, $ 

SAVE 

14780 

EAA 

TALLY, $ 

LOC  Of  DRIVER  TALLY 

14790 

STA 

2,  IC 

TO  OBI  SEQUENCE 

14800 

URL 

KOTNOK 

flUSH  TSS  BUffER 

14810 

ZERO 

14820 

RETURN 

REYOT 

AND  RETURN 

14830 

TUS 

RZYIK 

14840 

REN 

14850 

REN 

REYIN 

ROUTINE-RETRIEVE  last  tty  input 

14860 

REN 

14870KKTIH 

SAVE 

entry  to  retrieve  last  line 

14860 

Eaa 

2,1* 

GET  LOC  or  BUFFER 

14890 

eao 

3,1* 

AND  COUNT  VORO 

14900 

ARE 

18 

SHiri  THEN 

14910 

LLS 

18 

jnto  a single  WORD 

14920 

eaq 

STAT, $ 

SCRATCH 

14930 

ESTAQ 

2,  IC 

AND  store  in  sequence 

14940 

DRl 

RIN 

GET  THE  LINE 

14950 

ZERO 

14960 

ZERO 

14970 

RETURN 

REYXN 

ANO  RETURN  TO  CALLER 

14980 

TUS 

CALLTS 

14990 

REN 

15000 

REN 

CALLT3 

ROUTINE 

>-CAlL  TSS  SUBSYSTEN 

15010 

REN 

1502QCALLTS 

SAVE 

ENTRY  TO  PSEUDO  8 CALLSS 

15030 

IDA 

2,1* 

GET  SUBSYSTEM  NAM* 

15040 

ORA 

ABLNR.S 

rORCK  LOWER  CASE 

15050 

STA 

SSNARE.S 

STORE  IN  CALLSS  ARG  WORD 

15060 

IDA 

4,1* 

GET  * Of  CHARACTERS  TO  PSEUDO 

15070 

TZE 

CALTS,t 

ZERO,  DON'T  BOTHER 

15080 

ALS 

6 

SHlfT  TO  TALLY  POSITION 

86 


15090 

m 

-1,Dl 

DROP  EXTRA  CRUD 

15100 

CMPA 

62*64. DA 

IS  ZT  GREATER  THAR  81? 

15110 

THl 

2.  IC 

HO,  0.  K. 

15120 

IDA 

81*64, DA 

FORCE  COURT  TO  81  CHARS 

15130 

ORA 

32.  DL 

HARE  XT  A TALLXB 

1511*0 

STA 

TALLX.S 

STORE  XR  TALLX  SCRATCH 

15150 

EAXO 

3.1* 

riVD  DATA  ADDRESS 

15160 

STXO 

TAALT  , $ 

AKD  PLUG  XHTO  TALLX 

15170 

IKK 

TAAAX.S 

THE  TALLX  IS  HERE,  , , 

15180 

EAQ 

STAT.8 

Dvnnx  STATUS  WORD 

15190 

ARl 

18 

PUT  BOTH 

15200 

US 

18 

XR  ONE  WORD 

15210 

STA 

2.IC 

AND  STORE  XR  SEQ, 

15220 

DRI- 

PSEUDO 

PERFORM  pseudo 

15230 

ZERO 

1 5240CALTS 

IDA 

SSHAME.t 

grab  S3  name  AGAXR 

15250 

CMPA 

ABLNX.S 

HAS  IT  BLANK  AND/OR  EERO? 

15260 

TZE 

CLTX.8 

TE3,  DoR'T  DO  CALASS 

15270 

WO 

O.DO 

get  a zero 

15280 

DRt 

SETSWH 

SEE  VHAT  THE  SWITCH  WORD  SATS 

15290 

ANQ 

■02000, DO 

ONU  INTERESTED  IN  BREAK  RXT 

15300 

STQ 

Bor.s 

SAVE  FOR  LATER  RESTORE 

15310 

rzr 

2.ZC 

IF  EERO,  DON'T  BOTHER  RESETTING  ST 

15320 

DRI- 

RSTSHN 

BUT  XF  NONZERO.  . . 

15330 

DRI 

CAAASS 

ala  reads,  push  to  ss 

15340SSRAHE 

ZERO 

15350 

ADO 

BOP,* 

WE'RE  BACK,  RETRIEVE  BIT 

15360 

IZZ 

2,IC 

ir  ZERO,  DON'T  SET 

15370- 

DRl 

SETSWH 

NONZERO,  HUST  RESTORE  BIT 

15380cm 

RETURN 

CAAATS 

EXIT  TO  CALLER 

15390 

STlS 

0 A ASCI 

15400 

REM 

15410 

REM 

OAASCI  I0UIXHI--F08CE  OPPER/LOVER  CASE  ASCII 

15420 

REM 

15430ULASCI 

SAVE 

UPPER/LOWER  CASE  ASCII  ROUTINE 

15440 

IDO 

3,1* 

GET  STARTING  CHARACTER  NUMBER 

15450 

SBQ 

1.DA 

HIS  1 IS  OUR  0 

15460 

DIV 

4, DA 

u chars  per  word 

15470 

ALS 

16 

PLACE  CHAR  POS  IN  LOWER 

15490 

UR 

18 

and  WORD  offset  IN  UPPER 

15490 

ADO 

32, DL 

HAKE  tallxb 

15500 

STQ 

talax,$ 

AND  STORE  IN  SCRATCH 

15510 

ADA 

4,1* 

GET  CHARACTER  COUNT 

15520 

ALS 

6 

SHirr 

15530 

AHA 

-1,DL 

BEHOVE  CRUD  AGAIN 

15540 

ASA 

TALLY, $ 

ADD  TO  THE  CONFUSION 

15550 

EAA 

2,1* 

GET  DATA  LOC 

15560 

ASA 

TAALX,$ 

COMPOUND  INTEREST 

15510 

EAXO 

TALLX.S 

GET  ADDRESS  OF  OUR  TALLX 

15590 

STurr 

XO, (11,12,13,14) 

15590 

LXLO 

5,1* 

GRAB  U/l  FLAG 

15600 

ADO 

LXMITS*2,S 

ASSUME  UPPER 

87 


15610 

mo 

1 * DU 

UNLESS  » E FIND  OUT  OTMtRUXSE 

15620 

tzt 

2.XC 

HON  ABOUT  THAT? 

15630 

too 

UMTTSO.8 

OH,  HEU.  . . 

15640 

EAX1 

limits,* 

ADDRESS  Or  OTHER  LIMITS 

15650 

JTX  1 

1,XC 

STORE 

15660 

IDA 

**.0 

LOAD  LON  LIMIT  TO  BE  ALTERED 

15670T1 

CWl 

•*,CI 

SET  A CHARACTER.  XS  XT? 

15660 

IKX 

6,  XC 

NOPE,  LEAVE  XT  ALONE 

15695T2 

IDA 

•*,cx 

ahai  crab  hxm 

15700 

ERA 

•040 , OL 

EAPI  xr  You  WERE,  YOU  AREN'T  HOW, 

15710T3 

5TA 

•*,sc 

STORE  BACK  WHERE  XT  CAME  UOM 

15720 

TTF 

-6,XC 

MORE  TO  GO? 

15730 

TRA 

3.XC 

ALL  DONS,  EXIT 

15740T4 

HOP 

**,sc 

ADVANCE  TALLY 

15750 

TTr 

-8.IC 

MORE? 

15760 

return 

OlASCX 

THIS  NAT  OUT 

15770 

ms 

BCDASC- 

»ASCBCD 

15780 

REM 

15770 

in 

BCDASC/ASCBCD 

routines 

15600 

PEN 

158 108CDASC 

SAVE 

2,7 

BCD  TO  ASCII  TRANSLXTERATOB 

15820 

EAX2 

XPARAH.S 

GET  POINTERS  TO  PARAMETERS 

15830 

TSX7 

XINII, * 

AND  GO  XHITXUXZE 

15840 

RETURN 

BCD ASC 

DONE,  EXIT 

15850ASCBCD 

SAVE 

2.’ 

ASCII  TO  BCD  ENTRY 

15860 

EAX2 

XPARAH+6,8 

NEEDED  DATA 

15870 

TSX7 

XINII,* 

INITIALIZE 

15860 

RcruRv 

ASCBCD 

ALL  DONE 

15890 

EJECT 

15900XI.1XT 

EAXO 

BUF,» 

LOAD  TALLY  ADDRESS 

15910 

STXO 

Si.B 

STORE 

15920 

EAXO 

1.0 

STORE  TALLY  ADDRESS 

15930 

STurr 

X0,(S5.S71 

STurr  it  too 

15940 

LX10 

*.2 

GET  » CH  / VD  IN  CODE  VE'RE  GOING  TO 

15950 

STXO 

82,8 

STORE  IN  DIVIDE 

15960 

1X10 

5,2 

THIS  IS  NHAT  a blank  looks  like 

15970 

STXO 

86,8 

STORt  IT  TOO 

15980 

EAXO 

6,2 

pointer  to  xlii  table  poxnxkr 

15990 

STXO 

83,8 

STORE  XT 

16000 

EAXO 

7,2 

AND  THE  PTR  TO  SHIFT  TABLE  PTR 

16010 

5TX0 

84,8 

DITTO 

16020 

EAA 

BCDTAB.8 

ADDRESS  OF  HIT  TABLES,  BCDASC 

16030 

t AO 

SHTTB, S 

and  bcdasc  sHirr  table 

16040 

STAQ 

XPARAM«6,S 

STORE  INDIRECT  WORD 

16050 

EAR 

ASCTAB.S 

ADDRESS  Or  ASCBCD  XLXT  TABLE 

16060 

EAO 

SHPTA  , t 

and  s«irT  table 

16070 

STAQ 

XPARAE«14,$ 

to  ITS  INDIRECT  WORD 

16060 

too 

3,1* 

Ott  CHARACTER  POSITION 

16070 

s*o 

1,Dl 

correct 

16100 

DIV 

0,2 

divide  BY  $ CH  / WD 

16H0 

US 

18 

sNiri 

16120 

UR 

18 

TO  TAUT  roRHAT 

88 


16130 

ADO 

1,3 

add  cordztzonaa  xaaatb 

16  mo 

ITO 

Bur,$ 

STORE 

16150 

EAA 

2,1* 

LOAD  DATA  ADDRESS 

16160 

ASA 

BUT,  $ 

place  ir  tallt 

16  1'Q 

ADO 

5,1* 

BUILD  OTHER  TALLX  BT  SZHZlAR  PROCESS 

16160 

SBQ 

1 • da 

16190 

DIV 

3.2 

16300 

ALS 

18 

16310 

LLR 

18 

16330 

ADQ 

3,2 

16330 

STO 

BUP*1,8 

STORE 

162U0 

Ikk 

4.1* 

16350 

ASA 

8VP*1,8 

STORE  ADDRESS 

16260 

IDA 

6, 1* 

GET  CHARACTER  COURT 

16270 

ALS 

6 

skiet 

16380 

ANA 

" 1 , DA 

drop  garbage 

16290 

OSSA 

Bur+i,$ 

place  zr  taaat 

16300S1 

IDQ 

**,3C 

get  a character. 

1631052 

PIT 

**,  DA 

WHERE  IS  XT? 

16320S3 

IDO 

•*,*Ql 

LOAD  CORE  word 

16330S# 

XEC 

**, *AA 

HOVE  TO  LOVER  CHAR  POS 

16340S5 

STO 

•*,SC 

STORE 

16350 

ITT 

"S.IC 

COHTZNUE 

16360 

SZN 

7,1* 

DOES  HZ  HART  RLANK  riLl? 

16370 

TZE 

0,7 

RO,  RETURN 

16380S6 

ADA 

**.Dl 

YES,  GET  A BLARK 

16390 

IDQ 

7,DL 

AND  A HASK. 

16400 

CANQ 

BUP*1,8 

XS  THE  WORD  TILLED? 

•16410 

TZE 

0,7 

YES,  CUXT 

16U20S7 

STA 

•*,sc 

NO,  STORE  BLANK 

16430 

TRA 

-3.IC 

CONTINUE 

16UU0 

TTIS 

BREAK  PROCESSING 

16450 

REN 

16460 

REN 

BREAK 

PROCESSOR— TLGSRK 

16470 

REM 

16480 

INHIB 

ON 

BREAK  PROCESSING  BUST  BE  lERXBXTED 

16490BRKP 

STA 

SVA.S 

SAVE  AR 

16500 

IDA 

1,PU 

get  a .true. 

16510 

STA 

FLAG, 8* 

STORE  IN  PLAG  VAR 

16520 

AOS 

CNT.S 

COURT  THIS  BREAK 

16530 

TPt 

OVER, 8 

OOFS!!!  MAYBE  HE'D  BETTER  ASK, 

16540 

Ikk 

BRKP, 8 

RESET  BREAK  VECTOR 

16550 

ORA 

TRA, DA 

HXTH  A TRA 

16560 

STA 

13 

16575 

ADA 

SVA,  8 

RETRIEVE  AR 

16580 

RET 

12 

AND  continue 

16SH0OVER 

ADA 

SVA,  $ 

RETRIEVE  AR 

16600 

SREO 

BEOS, 8 

MOVE  REGISTERS  TO  A SATE  PLACE 

16610 

IDA 

12 

also  save  icsi  tor  a possible  ret 

16620 

STA 

REGS*7, 

$ (DON’T  REALLY  NEED  THE  TIMER  REGISTER) 

16630 AGAIN 

EAA 

O.IC 

RESET  BREAK  VECTOR  HERE 

16640 

ORA 

TRA, DA 

TO  PREVENT  DISASTERS 

89 


16650 

STA 

13 

XR  THl  EVENT  Or  RECURSIVE  BREAKS 

16660 

EAA 

MSG,  $ 

LOC  or  A MESSAGE 

16610 

OR* 

30*64*32#DL 

MANUFACTURE  A TALL! 

16680 

ST* 

IAILT*2,S 

STORE  IS  SCRATCH 

16690 

t.\* 

TAUY*2, 9 

ARC  A TALIT 

16700 

OR* 

64.01 

THAT  FOINTS  TO  THE  TALLY 

16710 

ST* 

TALLY* 1 , 8 

IR  THE  PREVIOUS  WORD 

16720 

I** 

TALLY*1,$ 

AND  TIT  ANOTHER  POIRIER 

16730 

IT* 

2.XC 

STORE  IR  KOUTR 

16740 

OR* 

KOUTK 

WRITE  HtSSAGE 

16750 

ZERO 

16760 

E** 

bup*2,s 

ADDRESS  Or  XRPUT  SUPPER 

16770 

Z*Q 

TAllY*1,9 

SCRATCH 

16780 

ARl 

18 

COMBINE 

16790 

US 

18 

16800 

ZAQ 

STAT,8 

MORE  SCRATCH 

16810 

ESTAQ 

2,IC 

STORE  IN  CALL 

16120 

OIL 

1X1 

retrieve  input 

16830 

ZERO 

16840 

ZERO 

16850 

SZR 

TALLY*  1 ( 8 

HAS  THERE  ANTTdHERE  SHOULD  BE) 

16860 

TZE 

*G*X|( f 

HUNT 

16870 

IDA 

BUr*2,9 

get  FIRST  VOID  or  input 

16680 

ARL 

27 

ISOLATE  EXIST  CHARACTER 

16890 

ORA 

-040,01 

PORCE  LOWER  CASE 

16800 

CH9A 

-0163(DL 

IS  XT  AS  ST 

16910 

TKZ 

2,XC 

NO 

16920 

DRL 

RETURR 

SCREEEEEECHI 1 1 1 1 

16930 

cm 

•0141, Dl 

howaboutana? 

16940 

m 

2»ic 

STILL  NO 

16950 

DSL 

ABORT 

80000000M 1 1 1 1 1 

16960 

CURA 

■0 143,01 

LAST  CHANCE— XS  IT  A C? 

16970 

TKZ 

again, $ 

IT'S  TOUR  MONEY,  ROT  HIRE, 

16980 

1C* 

20, DL 

GET  A -20 

16990 

ST* 

CRT , $ 

RESTORE  COUNT 

17000 

ZAA 

BRKP.8 

BUXLD  A TRA 

17010 

OR* 

TRA, 01 

TO  THE  ORIGINAL  BREAK  ROUTINE 

17020 

ST* 

13 

ARD  STORE  XR  VECTOR 

17030 

IRES 

BEOS, 9 

GRAB  REGISTERS 

17040 

RET 

IEOS*7,9 

AND  RETURN 

17050 

XKXXB 

orf 

ALL  THROUGH  WITH  THE  HEAVY  STUPE 

17060 

TTlI 

STORAGE 

A CONSTANTS 

17070 

izn 

17080 

REN 

STORAGE  i CORITARXS  SECTION 

17090 

Rtll 

i7ioomimorc 

6,0,4,32.4,32,0 

.0 

17110 

DEC 

4,32,6,0.6,16,0 

.0 

i7i:oshrn 

QRL 

5*6 

ASCBCO  SHIP!  TABLE 

17130 

OIL 

4*6 

17140 

ORl 

3*6 

17150 

OIL 

2*6 

17160 

ORl 

1*6 

90 


— 1 


17170 

MOP 

0,  DU 

l7ieosHrTB 

QBt 

3*9 

BCDASC  SHIFT  TABLE 

17190 

OKI 

2*9 

17200 

OKI 

1*9 

17210 

MOP 

o,ou 

17220 ASCTAB 

BSS 

5 

17230 

BCI 

9,00  i-isxi'n* 

♦ , -,/01 234567  89  :j<->?BXBCDEF#HUKL«MOPQRS 

172U0 

BCI 

8,TUVHXTZt ‘J'NOABCDEFGHIJKLHNOPQRSTUYWXYZOOOOO 

17250BCDTAB 

ASCII 

13,0123456769[»(I|>7  ABCDEf  GHI4 , J ( < * * JKlHNOPQB-6* ) 1 * ♦/« 

17260 

ASCII 

3,UYWXTZ\,X*"I 

17270TLAG 

ZERO 

POZMTER  TO  FLOBRK  FLAG 

17280STAT 

BSS 

1 

DUHHT  STATUS  HORD 

17290ABLNK 

ASCII 

1, 

OME  HORD  OF  ASCII  BLANKS 

17300TALLT 

BSS 

3 

SCRATCH  FOR  TALLIES 

173 lOBOr 

BSS 

23 

INPUT  LINE  BUPrER  < SCRATCH 

17320UMITS 

OCT 

141,101,172,132 

17330CNT 

DEC 

-20 

MAX  BREAK  COUNT 

173U0MSG 

OCT 

015012012177 

HSG— COUNT  EXCEECBD 

17350 

UASCX 

7 , *BREAX : STOP 

OR  CONTINUE? 

17360REGS 

8 BSS 

8 

BREAK  REGISTER  SAFE-STORE 

17370SVA 

IQV 

REGS 

17380 

ORG 

REGS 

BACK  OP  TO  REG  STORE  AREA 

17390 

STHDEF 

SATE 

ADD  SAVE  EBTRI  POINT 

17400SAVE 

IDQ 

■3H0H*,Dl 

load  save  FILE  CODE 

17410 

HHE 

GESAVS 

AMD  SAVE  US 

17420 

BCI 

i.xsfutl 

GESAVS  mahe 

17430 

ZERO 

.PIER, , ,PLST,-. 

PEER , SIZE  < LENGTH 

17440 

ZERO 

FLG8RX 

AN  ENIR7  POINT,  FZR  GRINS 

17450 

nnz 

GEriMX 

HE'SE  saved;  so  stop  alreadx 

17460 

eight 

GET  US  BACK  TO  THE  END  OF  REGS 

17470 

ITT 

17480 

erix 

17490, BIST. 

null 

17500 

end 

17510B 

GMAP 

17520 

IBL 

PACKOOOO,  PACK 

, UNPACK,  HOVE  6000  FORT  BCD/ASCIX 

17530 

TTL 

PACK,  UMPACK, 

HOVE  BCD/ASCIX  STRINGS  6000  FORTRAN 

17540 

TUB 

17550 

editp 

OB 

17560 

3thdef 

PACK 

17570 

STHDEF 

UMPACK 

17580 

sthdef 

HOPE 

17590 

BCI 

1,740926 

VERSION  DATE 

17600 

date 

ASSEHBLT  DATE 

176iOnOVE 

STX1 

• E , L . , 

SAVE  XI 

17620 

STI 

ARD  INDICATORS  FOR  RETURN 

17630 

BTX7 

RET*  1 

SAVE  X7  FOR  CALLER 

17640 

ZAX7 

HV 

GET  IOC  OF  HOVE  TABLE 

17650 

TRA 

•♦10 

ENTER  COHHON  PROCEDURE 

17660PACK 

STX  1 

• E , L . , 

SAVE  XI 

17670 

STI 

• E, L • , 

AND  INDICATORS 

17680 

STX7 

BET*1 

ANO  X7 

WM 


17690 

EaX7 

PK 

SET  LOC  OP  PACK  TABLE 

17700 

tra 

*♦5 

SO  to  COMMON  PROCEDURE 

177 iQUNpACK 

STX1 

• E , E • « 

SAVE  REGISTERS 

17720 

STI 

• E. L , • 

17730 

8TX7 

RET*  1 

17790 

SAX7 

UPK 

SET  LOC  or  UNPACK  TABLE 

17750 

STX« 

REt 

SAVE  ANOTHER  REGISTER 

17760 

eaa 

2,1* 

check  out  first  argument 

17770 

TNZ 

*♦9 

IS  IT  NULL? 

17780 

SZN 

3,1* 

IT  IS.  CHECK  SECOND  AROUHSH? 

17790 

TZE 

IS  IT  NONZERO? 

17800 

EAXS 

ASC 

IT  IS,  SET  MODE  TO  ASCII 

17810 

STX6 

X6 

17820 

TEA 

RET 

ARO  RETURN 

17830 

tAX6 

BCD 

second  arg  is  zero,  SET  MODI  BCD 

178U0 

ITX8 

X6 

17850 

IRA 

RET 

return 

17860 

LDX| 

X6 

FIRST  ARO  IS  ROT  NULL  - GET  MODE 

17870 

EAA 

2,1* 

SET  LOC  0?  "FROM"  AREA 

17880 

STA 

IAE1 

PLACE  ADDRESS  IN  TAIL!  WORD 

17890 

zaa 

4,1* 

SET  ICC  Of  "TO"  AREA 

17900 

STA 

TAL2 

PLACE  IN  OTHER  TALLY  WORD 

17910 

IDA 

6,1* 

GET  CHARACTER  COUNT 

17920 

ALS 

6 

SHZrt  rOR  TALL!  COUNT 

17930 

AKA 

-1.DL 

DROP  REFUSE 

17940 

orsa 

TAE2 

AND  "OR"  INTO  TAUT 

17950 

EDO 

3,1* 

GET  "TROM’  CHARACTER  TOSITION 

17960 

6BQ 

1,01 

ADJUST  FOR  FORTRAN'S  INDEXING 

17970 

XED 

6,7 

PRODUCE  OFFSET  8 epos 

17980 

UR 

18 

17990 

XEC 

3,7 

ADD  CONDITIONAL  TAILYB  BIT 

18000 

ASQ 

TALI 

HODIFT  THE  TALLY  AS  REQUIRED 

18010 

EDO 

5,1* 

SET  "TO"  CHARACTER  POSITION 

18020 

SBQ 

1,DL 

ADJUST  INDEX 

18030 

XED 

8,7 

PRODUCE  OFFSETS 

18040 

LLA 

18 

18050 

XEC 

10,7 

AND  CONDITIONAL  TALLIB 

18060 

ASQ 

TAL2 

add  to  tally  word 

18070 

XED 

0,7 

PROCESS  THE  CHARACTER  STRING 

18080 

XED 

2,7 

ACCORDING  TO  ENTRY  POINT  A*D  HODS 

18090 

TTr 

*-2 

USING  TALLIES  KR  JUST  BUILT 

18100 

XEC 

«,7 

CHECK  TOR  BLANK  FILL  REQUIRED 

18110 

TZt 

RET 

RETURN  IF  NONE 

18120 

EDA 

1,6 

ELSE  GET  A BLANK 

18130 

EDO 

7,Dl 

and  a mask 

18140 

CARO 

TAE2 

IS  THE  LAST  VORD  FULL? 

18150 

TZE 

REt 

IT  IS,  SO  RETURN 

18160 

STA 

TAE2,tC 

IT  ISN'T,  SO  ADD  A BLANK 

18170 

TRA 

*-3 

GO  CHECK  AGAIN 

181808ET 

LDX6 

***D0 

RESTORE  REGISTERS 

18190 

EDX7 

**,D0 

18200 

RET 

• E , E • # 

and  return  to  caller 
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ST’OPK 

EiDA 

TALI, ID 

8220 

ARL 

0,6* 

8230 

STA 

TA12.SC 

8240 

TTF 

-1,IC 

8250 

3ZN 

7.1* 

8260 

NOP 

O.DU 

8270 

NOP 

0,DU 

8280 

IDA 

0,DU 

8290 

DIV 

3,6 

8300 

ALS 

18 

8310 

ORQ 

2.6 

S320UFK 

EIDA 

IAL1.SC 

8330 

ALS 

0,6* 

8340 

ORA 

1.6 

8350 

STA 

TA12.XD 

8360 

TRA 

RET 

8370 

0X0 

2.6 

8380 

PIV 

3,6 

8390 

ALS 

18 

8400 

NOP 

O.DU 

8410 

IDA 

0,  DU 

8420 

NOP 

O.DU 

8430MV 

EIDA 

TALI, SC 

8440 

STA 

TAL2.SC 

8450 

TTF 

-1.IC 

8460 

•TRA 

2.IC 

8470 

SEN 

7,1* 

8480 

ORQ 

2,6 

8490 

DIV 

3.6 

8500 

ALS 

18 

85 1 0 

PIT 

3,6 

8520 

ALS 

18 

8530 

ORQ 

2,6 

8S40BCD 

ARC 

30 

8550 

BCI 

1.0 

8560 

OCT 

0 

8570 

DEC 

6 

8580 ASc 

ARC 

27 

8590 

OCT 

000040040040 

8600 

OCT 

40 

8610 

DEC 

4 

8620TAL1 

BSS 

1 

8630TAL2 

BSS 

1 

8640X6 

ARC 

ASC 

8650 

End 

8660$ 

CHAP 

8670 

LBL 

DIHXXX,  ALLOi 

8680 

TTL 

ALLOCATE 

8690 

STHDEr 

8700 

STHREF 

.fbad. 

8710HOLE 

EQU 

31 

8720 

. IDA 

1.DL 

GIT  A VOSS 

SIGHT  .JUSTIPX  THE  CHARACTER 

STORE  IT 

AND  COHTIROI 

CHECK  TOR  Bl ARK  fill 


EERO  THE  Al 

PIVISE  FOR  PROPER  TAUT  CPOS 
PUT  rehaihdib  in  au 
P OSSIBIT  SET  TALLER  BIT 
GIT  A CHARACTER 
RUT  IT  IK  AD 
BLRVK  TILL  IT 

and  store  the  word 

NO  BLANK  TILL  ON  UNPACK 
ADD  POSSIBLE  TALIYB 

ditto*  for  orrsET  < epos 

PLACE  REMAINDER  (CPOS)  IN  AQ 
EERO  AR 

GET  A CHARACTER 
STORE  XT  AGAIN 
LOOP 

BBEAK  OUT  OP  LOOP 
CHECK  TOR  BLANK  FILL 
SET  TAiLXB  BIT 
COMPUTE  OFFSET  I CPOS 
PUT  CPOS  IK  AU 

COHPUT  OFFSET  A CPOS  (THE  OTHER  ONE) 

POSITION 

SET  BIT 

« OF  BITS  TO  SHIFT 
BLANK  PILL 
NO  TALLTB  BIT 
6 CHARACTERS  PER  VOSS 
• OF  BITS  TO  SHIT! 

BLANK  FILL 

TH*  TALLTB  BIT 

FOUR  CHARACTERS  PER  WORD 

word  into  vhxck  -froh*  tally  is  built 

DITTO,  "TO"  TALLY 

POINTER  TO  BCD/ASCII  PARAMETERS 


ENTER  THE  BATCH  PORTION  THRU  KERB 

LOCATION  OF  AVAIL  CORE  NORD 
OPEN  FILE  01  A5  INPUT 


PTKXXE 
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18730 

STA 

, FBAD , 

18740 

CALL 

.rOPER(-O) 

XR  ORDER  10  ALLOC -.TE  BUFFERS 

18750 

IDA 

a.oL 

DO  THI  SAHE  FOR  FILE  02 

18760 

8TA 

.FBAD, 

1877Q 

CALL 

, FOPEH ( • 1 ) 

EXCEPT  OUTPUT 

18780 

LOA 

6,01 

FILE  06  TOO 

18790 

STA 

.FBAD, 

18800 

CALL 

, FOPER (»1 ) 

ALSO  OUTPUT 

18810 

1X10 

HOLE 

ROW  that  other  dehards  have  bebr  satisfied 

18820 

SBXO 

HOLE 

COMPUTE  AVAILABLE  CORE  LEFT 

18830 

ZAO 

0,0 

DIVIDE  BX  2 ARD  STORE  FOR  COMPARE 

18840 

ORL 

18 

SHIFT  TO  LOWER  HALF 

18850 

9BIQ 

1600, DL 

SAVE  SPACE  TOR  RAHDOfl  FILE 

18860 

QRl 

1 

DIVIDE  BX  2 

18870 

STO 

AVAIL 

18880 

IDO 

Din 

GET  TRIAL  ARRAT  DXHERSXOH 

16890 

npx 

DXH 

SQUARE  XT 

18900 

CMPQ 

AVAIL 

ARD  CHECK  TO  SEE  IF  XT'S  TOO  bXG 

18910 

TFC 

*♦3 

XT  IS 

18920 

AOS 

oxn 

XT'S  ROT.  XRCREASE  AWD  TRT  AGAIR 

18930 

TRA 

*-5 

18940 

ICA 

1,Dl 

DECREASE  DXH  BX  1 SO  XT  FXT» 

18950 

ASA 

Din 

18960 

LDXO 

HOLE 

GET  LOC  OF  AVAIL 

18970 

8TX0 

CAlLO 

STORE  XT  XR  CALLIRG  SEQ 

18980 

STXO 

CAll+4 

18990 

too 

OIH 

SQUARE  ARRAT  DXHERSXOH 

19000 

MPT 

DXH 

TO  GET  EXTERT  OF  EACH  ARRAT 

19010 

QLS 

18 

SHIFT  TO  QU 

19020 

ASO 

CAll*4 

ARD  ADD  TO  OFFSET  SECORD  ARRAT 

19030 

QLS 

1 

HUH  DXH**!  BX  2 

19040 

ASO 

HOLE 

ARD  UPDATE  CORE  USED 

19050 

HHE 

gesnap 

SRAP  CALL  FOR  DEBUGGXKG 

19060 

ZERO 

CaLL+3,4 

1907QCALL 

CALL 

HAIR (**,**, DIM ) 

19080DXH 

DEC 

1 

DXHERSXOH  OF  ARRAIS 

19090AVAXL 

BSS 

1 

AVAIL  CORE  / 2 

19100 

ERD 

191108 

PORTRAR 

USAHAI 

91*0* 

9130CHAIH  ••♦HAIR  PROGRAM*** 

914Q* 

9150* 

9160*  HAIR  PROGRAH 

9170* 

9160* 

9190  SUBROUTIRE  HAIR (C 1 , C2. IDXH ) 

9200  connov  X,X.Z,X1,T1,Z1,H0.KS,rP,AK,XG,MH,HB,AC,8C,XT,AE«BA,RWO 

9210  1 ,GREl, TRAVEL, ARTEL, DTA,BTA»DBH,IFP,IFT,IRO 

9220  pxniRsxoR  ci(XDXn,:cx»),C2(XDin(XD:n) 

9230  DIHERSXOR  HO<200).RA<200).X(200>.X<200),Z(200),AV(200)» 

9240  1 BV(200J,AZ(3S1).L1(200).»S(200),XP(200).IZ(200),AC(500). 
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19250 

2 

Rh’G(6).FA(40).AP(5).ap(5).ZZ(5),AC(5).B0(5).LR(500), 

19260 

3 

IT(20).C5(3.3),BC(500),A3(13).B3(13),C3(5.18),C4(5,16)i 

19270 

4 

r B ( 10). IV ( 10 ).C6< 3.3). BZ{ 200 >.X 1(200 ),X 1 ( 200 ) .SI ( 200) . 

19280 

5 

S3  ( 5 ) . EE < 4 ) . F r ( 4 ) , HP ( 20 ) , ALT ( 6 > 

19290 

CALI  RAN51Z (03, 9) 

19300 

N 5- 1 1;n6=13 

19310 

AH-R5-1 

19320 

GH-R6-1 

19330* 

19340* 

**< 

BEAD  ! PART  OF  FILE  01 

19350* 

19360 

BEAD (1.10)  K8,RE»Ktf.XX2.Gp«Cl> 

19370 

XG-0 

19380 

ir(GP.GT..5)  XG»1 

19390 

xc«o 

19400 

IF ( Cl.GT, . 5 ) XC-1 

19410 

BEAD ( 1 . 1 2 ) ( HO ( X ) . X* 1 . RB ) 

19420 

BEAD (1.14)  ( RA ( I ) , I» 1 , HP ) 

19430 

BEAD( 1,12)  (X(X),X-1,RE) 

19440 

BEAD( 1,12)  (I(X),X-1,RR) 

19450 

BEAD( 1,12)  (Z(X),X-1,HH) 

19460 

00  4 X»1,HM 

19470  4 

BZ(X)«0, 

19480 

XF( XX2 • HE, 0 ) BEAD ( 1,16)  ( EX ( I ) ,X»1,RR ) 

19490  17 

roBBAT<4F8.1,F9.6,2F6,1) 

19500- 

BEAD( 1, 18)  XFP.XFT.XDB.XRG.ATBE.AFHX.AXBT.AXHP.DPXB 

19510 

Xr(IRG.EO.I)  BEAD (1,17)  GBBI,TBAHEi;A*TEL.DTA,BTA,D»H, 

19520 

XF(XRG.EO.I)  BEAD(1,12)  (rA(X),I>1,«B) 

19530 

XF(XBG.EQ.I)  BEAD (1,15)  HA, ( AtT(I) ,X«1 ,RA) 

19540 

pdd*dbn 

19550 

DBH«=1,E-3*10.**(DBn*.1) 

19560  15 

FOHMAT(I3,(6F8.1)) 

19570* 

19580* 

•**SpECirX  5UB-ARTEHRA  POSITIONS  (X,T,J)  AMD  (X1.T1.Sl) 

19390* 

19600 

CALL  PXTZ 

19610  10 

FOB«AT(3X4,I2,2F3.0) 

19620  12 

FOBHAT { 9F7 , 3 ) 

19630  14 

FORWAT(8F8,5) 

19640  16 

FORMAT ( 6E 1 1,3) 

19650  18 

FORMAT(4I3,4F7.2,F6,1) 

19660  20 

FOB BAT (15, 15X4) 

19670  3 

FORMAT ( 3X4, 213, F7, 2) 

19680 

00  100  KF»1,K* 

19690* 

19700* 

***BEAD:THE  REST  OF  TUE  01 

19710* 

19720 

BEAD (1,3)  nn,RZ,XV(KV),X14.XX6,FB(KV) 

19730 

HX-,013 

19740 

ALAK»300./FB(XV) 

19750 

IV-IV(KV) 

19760 

00  6 X-1.MR 
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19770  BV(X)«0. 

19780  6 AZ(I)-0. 

19790  BEAD  ( 1 « 1 2 ) ( AT ( X ) • X- 1 « WR) 

19800  Xr(IIU.KE.O)  BEAD ( 1*12)  ( 8 V ( I ) , I» 1 , RN ) 

19810  XF(II6.VB.O)  BEAD (1*16)  ( M ( I ) , X" 1 . »» ) 

19820  BEADM.20)  (MS(X),X-1,KE) 

19830  RBAD(1,20)  (U(X),I-1,WW) 

19840  BEAP(  1,20)  (IF(I),I-1,WR> 

19850  Xr(IC.EQ.I)  READ  < 1,20)  ( IX ( I ) , I- 1 , Wj  ) 

19860*  IF ( NB , WE , 0 ) WRlTE<2,320)  XV (K V ) , FR ( KV ) 

19870  ir(»B.KE.O)  KBIT B{2)  1 , 2, XV (KV > , PR (KV ) 

19880  320  FORMAT!//’  ***  AHTB  ( FED ) , 13,  IX, • FBEQ  (MHZ)«*» 
19890  FP«FB(KV)*1,E6 

19900  IF(WB.WE.O)  WBITE(6.320)  XV ( KV ) , FR ( KV ) 

19910*  IFdRO.EQ.I)  VBITE  ( 2 , 3J5  ) DDD.APXH 

19920  XF(XRG.EQ.I)  WRITE(6,30S)  DDD.APIK 

19930  305  FORMAT!//’  RECEIVER  SENsijXVXTX  ( DBM )■' ,F6, 1/ 

19990  1 • TRANSMITTER  POWER  (WATT)  «',F6,1//) 

19950  310  A4*0. 

19960  B5*0 , 

19970  DO  24  1-1, MM 

19980  IR(X)«0 

19990  DO  24  Ja1,At| 

20000  CKI.JI-O, 

20010  24  C2(I,J)»0, 

20020  DO  19  X-1,5 

20030  DO  19  J-1,16 

20040  C3(X,J)-0. 

20050  19  C4(X,j)-0, 

20060  EF-0, 

20070  BG-0, 

20080  AK»2. *3, 141593 

20090  CW»AK*,25/CW 

30100  EPS-1, E-9/(18,*AK) 

20110  XMU*2.E-7**k 

20120  OME-AK*FP 

30130  0MP-0HE«EPS 

30140  XK-OHE/3.E8 

30150  Xl-XK«XK 

30160* 

20170*  ***CAICULATE  THE  GEHERAIIZed  IMPEDANCE  MATRIX  C1.C2 
20180* 

30190  K2-2 

30200  XF(XG.EQ.O)  K2-1 

20210  BLO-ALOG(2.) 

30220  XI-0 

20230  K3-0 

20340  K-0 

20250  WX-WB 

20260  XF(WB.ZQ.O)  NX-WR 

30270  PO  325  KSw 1 ( NX 

30280  MK-0 
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RK-1 

rp(ks)»o 

iF(HB.tQ.O)  SO  TO  8 
XU— 1 

irdT(KS)  .EQ.1097)  WK-5 
Xr(TT<KS), *0.197)  NK-26 
IF<KK.EQ.26, ARD.IV.FQ.KJ)  BK-1 
PO  32U  K0-1.HK 
K-K*1 

**»BK»1S  *197  teed  arc  currerts  ari  stbbetrical  about  axis 
••♦kqssub-arterra  rubber 

irJBK.EQ, i.AKD.KQ.GT.3.ARD.KQ,RB.  15)  SO  TO  32U 


•••USE  THE  STBBElRT  PROPERTT  OF  *197  ARTEKRA 
•••ABOUT  THE  AXIS  .HHEH  IT  IS  FED.FOR  K8-1.2 

BV-0 

K9-K-1 

KG-  1 

IF(IG.RE.0.AND.ABS(I(K) ) .11, 1.E-5)  KO-0 

AS-KS (K)*KG 

XT ( RK-26 ) 298.290.298 


30540 

290 

IF ( KQ-2 ) 295,298,292 

20550 

292 

XF(KQ-14)  295,295,294 

20500 

294 

BV-2 

30570 

AS-AS-1, 

20580 

GO  TO  298 

30590 

295 

BV-1 

20600 

AS-AS-1, 

30610 

298 

DK-H0(K)/AS 

30620 

HP(KS)-NP(KS)+RS(K) 

20630 

XF(K.EO.I)  GG  TO  26 

20640 

182 

JI-II*NS ( K91 

20650 

26 

RSK-RS(K) 

20660 

0-0 

30670 

PO  60  13-1, RX 

20680 

Rl-1 

20690 

BL-0 

20700 

JF(KB.EO.O)  GO  TO  9 

30710 

XF<II(LS), EQ.1097)  Rl*5 

30720 

XF(IT(LS),EQ.197)  Nt-26 

20730 

XF(BL,EQ.26,ARD.LS.EQ,IV)  BL-1 

30740 

9 

PO  60  LQ-1.HL 

30750 

l-t*1 

20760 

19-L-1 

20770 

K8-0 

20780 

KG- 1 

20790 

XF(K.KE,l.OR.RA(l) .IT..02*ALAB)  KO-O 

30600 

XF(IG.HE.O.AHD.ABS(X(K) ) .LT.1.E-5)  KG-0 

20290 

20300 

20310 

30320 

20330 

20340 

30350 

30360  I 

30370 

30380* 

20390* 

30400* 

20410* 

30920 

20430 

20440* 

30450* 

20460* 

20470* 

20480 

20490 

20500 

20510 

20520 

20530 


9 
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20(10 

iG*  1 

30820 

XF(IG)  126,128,126 

30830 

126 

zr(mi)  128,127,  128 

208U0 

127 

tG*C 

30850 

128 

AT*SS ( l ) ♦tO 

30(60 

HV*0 

30870 

X P ( Hl-26 ) 288,281,286 

30880 

281 

XFdQ-2)  285,288,282 

30890 

282 

lrdO-18)  285.265,284  ' 

20900 

288 

H»*2 

30910 

AT-AI-1, 

20920 

GO  TO  2(8 

20930 

285 

HV*1 

20980 

AT=AT-1, 

20950 

28( 

Dl“H0  { l ) • ,5/AT 

30960 

XF(K,VEtL,0*.RAd).I>T,'Q2*AI<AH)  10*0 

20970 

ALP*DL*,5 

30980 

XKD*XK*AlP 

30990 

APl*1.005#ALP 

31000 

AKl»AK*AlP 

21010 

XD*XKD»XKD 

21020 

AW*2. *AtP/AK 

31030 

Xr(t9)  28,28.180 

21080 

180 

XF(HL.EQ.O)  GO  TO  138 

21050 

IF(10.GT.3.AND.LQ,NK.1S)  GO  TO  28 

31060 

138 

O-J  + HSO.9) 

31070 

28 

»Sl*HSd> 

31080 

DO  860  KX-1,K2 

31090 

B1«1 

31100 

0=3-2»KK 

21110 

ir(KK-l)  162,186,162 

31120 

186 

IF(HB)  188,168,186 

21130 

186 

IF(KS-IS)  880,830,880 

21180 

430 

XrdS.EQ.I)  GO  TO  880 

21150 

XF(IU.EQ.O)  GO  TO  880 

31160 

XF(IU.GT.O)  GO  TO  860 

21170 

16*26 

21180 

XF(XTdS)  ,EQ.  197. AHD, IS. HI, IV)  GO  TO  835 

31190 

XF(XT(iS).NE.1097)  GO  TO  880 

31200 

IFUS.EO.IW.AKD.IC.EQ.O)  GO  TO  880 

31210 

K"5 

21220 

835 

IX*LS 

21230 

K1-Z.S-1 

21280 

IU-0 

31250 

PO  836  JX*1,K1 

31260 

XFd.e-10)  885,885,883 

21270 

483 

IF(  JX.EQ.IW.OR.ZHJX)  .SE,  197)  GO  TO  836 

21280 

GO  TO  888 

21290 

885 

XF(XT(JX).*E. 1097.0*. (JX.IOlXW.AIlO.XC.EO.O)) 

31300 

nut 

Xu*iu*1 

21310 

KX*JX 

31320 

838 

comm 

I 


- 


21336  XF(ZU.eg.O)  SO  TO  uuo 

313U0  CALL  QZP(K1,L8,II,l9,MX,HZ»XX,IP) 

21350  DO  U50  1-1, HZ 

31360  NP-MX+I 

21370  XM-II4-I 

21380  DO  950  JX-1.HZ 

J1390  HQ-HX+JX 

21900  LV-IH-JX 

31910  ci<icn,iH)=ci(np,nQ) 

21920  C2(KM,L»)«C2(HP,MQ) 

31930  950  CONTINUE 

21990  90  TO  960 

21950  9l*0  XFU9)  I61*  ,169,138 

31960  138  JF(K-L)  169,139,169 

31970  139  XF<Nl.EQ.26.0*.IT<K3).EQ,1000)  60  TO  169 

21980  DO  152  K5* 1 , K9 

31990  »B=JU(K5)-RA(K) 

21500  HH-HO ( K5 ) -HO ( K ) 

21510  HV»NS(K5)-H3(K) 

21520  BH»BH*HR*HH*HH*HB*HN 

31530  IF ( RH« 1 . B-6 ) 150.152,152 

21590  150  PO  156  K7«1,k3 

21550  K8-JC7 

31560  JF(LR(K7>-K5)  156,159,156 

21570  156  CONTINUE 

31580  159  60  TO  169 

315^0  152  CONTINUE 

21600  GO  TO  169 

21610  162  XF ( Z ( L ) ) 169,158,169 

21620  158  B1-2 

21630  169  XP={KK-1)**2+(K-l)**2 

21690  DO  955  H-1,NSK 

21650  KH-II+B 

21660  XF(KP)  23,22,23 

21670  22  XFUL.EQ.26)  00  TO  23 

31680  m-M 

21690  23  ZK-H-1-KO 

21700  FZK-Z ( X ) ♦DK*ZK 

21710  XF(IG.NE.0tAND.ABS(Z(>O) ,IT*1,E"5)  JK-ZK-I 

21720  DO  78  N=N1,NSl 

217J0  VN-J+N 

21790  XF(TT(KS).EQ.1000)  GO  TO  31 

21750  JF(KK-I)  31,25,31 

21760  25  XfUL,EQ,26.0R.XK(EQ.26)  GO  TO  32 

21770  XF(L-K)  78,27,31 

217C0  27  XP(HI-I)  29,29,72 

21790  29  XF ( K9 ) 173,31,173 

21800  173  XF(K8)  31,31,179 

21810  179  CCsr3(K8,N) 

21820  CD-C  9 ( K8 , N ) 

21830  GO  TO  76 

21890  32  XF(KS.NB.LS)  GO  TO  31 


21850 
218(0 
21870 
21880 
21890 
21900 
21910  36 
21920 
21930 
21940 
21950 
21960 
21970  11 
21980 
21990 
22000 
22010 
22020  31 
22030 
2 2 0 U 0 
22050 
22060 
22070 
22080 
22090 
22100  34 
22110* 
22120* 
22130* 
22140* 
22150  35 
22160 
22170 
22180 
22190 
22200 
22210 
22220 
22230 
22240  1C  8 
22250 
22260 
22270 
22260 
22290 
22300 
22310 
22320 
22330  361 
22340 
22350 
22360 


Xr(Klt,EQ.2)  GO  TO  11 
Ir(Hl.EC.I)  GO  TO  11 
lF(KQ.LE,3,»ND.I.0.I.t.3>  SO  TO  31 
imQ.NE.3,AND.I,0.!<*.  13)  GO  TO  36 
IF(KQ.GT.3,AND,K0,8E, 15)  GO  TO  37 
00  TO  31 

lF<KQ.Eg.3,OR.K0.fQ,15)  GO  TO  31 

3P-0 

30*0 

XF(K0.GZ.4,AND.K0,HE. 15)  JP-NS(K) 
Ir(lO.GF.4,ABO.lO.NE.  15)  J0-8SU) 

SO  TO  40 

IF(KQ.GT,2)  GO  TO  31 
IF<IO.IE.3.0R.LO>,EQ. 15)  60  TO  31 
CC«C5{H,») 

CD=C6(H,B) 

GO  TO  76 
Jt1«||-UIG 

CC-0, 

CD-0, 

nc-4 

JFOC.NE.l.OR.RAU)  .IT.  ,02*UAH)  HC-1 

DO  69  HN-1.HC 

IF ( HC , Eg, 1 ) GO  TO  35 

IFCK-H1)  34,35,34 

IF (MH-3 ) 64,35,35 

••*118  EXPANSION  AND  POISE  TESTING  FOI 
***8ADIUS  <0.02  OF  WAVEIENSTH 

AXN-MK-1 

Zl-Zl1*Zt1-1.5*ANH 
IF ( HC , EQ , 4 ) GO  TO  329 
EL-E11+.5 

IrdG.NE.O.AND.ABSdU)  ) ,H*1,E-5)  Jt-Zt- 

flQ-1 1-CKK-1 ) *4 

IF ( Ht , LT, 6)  GO  TO  108 

IF ( ML, Eg, 0 ) J0»7-(KK-1  )*2 

XF(Hl.lg.O.AND.ZC.Eg.O)  J0P5 

IF(KS.NE.LS)  Jg«3 

gj-jg-i 

NT- J0/2+1 

08-KT-1 

3Y-1 

lF(N.E0,N1,OR,J0.IQ,3)  SO  TO  361 
jr<=2 

A3( 1)-A3(JT) 

83(1 )-B3 ( JT ) 

3T-3Q 

PO  360  JJ-JT, <JT 

AJ-JJ-1 

PL-HO ( l ) /AT 
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22370 

iF(JJ.lt.KT)  DO-DL/OJ 

22380 

DE-Dl/OJ 

22390 

22400 

1Q«*A(1) 

22410 

22470 

I2»T1<L>-m) 

22430 

t3«*1(l)-Z(L) 

22440 

»1»S0RT(T1*I1*t2*T2*T3»I3) 

22450 

XrU'J.lE.KT.Ol.nw.NZ.I)  so 

TO 

363 

22450 

Xr(H.KI.«Sl)  SO  TO  363 

22470 

Pl«HX 

224eo 

PE-Dl/QJ 

22400 

BQ* ,002 

22500 

X1«0. 

22510 

T2-0. 

22520 

T3»1, 

22530 

B 1*  1 , 

22540 

m»xi(x.) 

22550 

PU«T1<t) 

22550 

P7l»=Z1(t)  + {AJ»QK)*DE 

22570 

SO  TO  370 

22580 

363 

Tr( JJ,Cr,KT,C*.HH,NE.2)  CO 

TO 

366 

22590 

IF(N.KE.I)  GO  TO  366 

22600 

oi«hx 

22610 

0D“DI/0J 

22620 

BQ-.002 

22630 

T1-0, 

22640 

T2-0. 

22650 

T3«1. 

22660 

*1-1. 

22670 

tO”-Dl»,5*»J*DD 

22680 

366 

ZE*ZD/B 1 

22690 

PXL«X(l)*ZE*T1 

22700 

PTl"T { L ) ♦ZZ*T2 

22710 

»ZZ=Z(1)*Z**TJ 

22720 

370 

A3(JJ)-0. 

22730 

83(JJ)«0, 

22740 

IF<JQ.EQ.3,ANP.JJ.8E.2)  60 

TO 

360 

22750 

BO  350  JX-1,2 

22760 

AJX-JX 

22770 

01«X1(K)-X(X) 

22780 

02*T 1 ( X )~T (K ) 

22790 

03*Z 1 ( K )"Z ( X ) 

228C0 

X0«SQRI(U1**2*U2**2*U3**2) 

22810 

PK»H0(X)/AS 

22820 

IF( JX- 1 ) 352,352.355 

22830 

352 

Tr(MV.(IB.2,0*,n.llE.  1)  SO  TO  353 

22840 

PX"HX 

22850 

01«0, 

22860 

02«0. 

22870 

03“  1 , 

22880 

BO-1, 

101 


r 


22890 

PXK«X(K) 

22900 

PTKbT(IC) 

22910 

PZK-Z(K)-DX 

22920 

GO  TO  354 

22930 

353 

DIC8bOK*ZK/*0 

229UQ 

»XK-X(K>*DKP.»01 

22950 

m«T(IC)*D!C**02 

229(0 

PZKbZ(K)4DKR»03 

22970 

350 

DR«DK/R0 

22980 

FXl«PXK*DR*U1 

22990 

PX1«PXK*DR*U2 

23000 

PZ1bPZK*DR*03 

23010 

GO  TO  358 

23020 

355 

IPOlV.Hf. I.OR.H.HE.RSK)  GO  TO  356 

23030 

DK-HX 

230U0 

01«0, 

23050 

02«0. 

23060 

03*1 . 

23070 

80-1, 

23080 

PXK-XIOO 

23090 

PTK-XKK) 

23100 

PZHbZKK) 

23110 

GO  TO  357 

23120 

356 

PXHbPXI 

23130 

pyx-pyi 

23100 

PZK-PZ1 

23150 

357 

ORBDK/RO 

23150 

PX1"PXIUDR*U1 

23170 

PTl*PTX*DR*U2 

23180 

PZ1-PZK*DR»U3 

23190 

356 

DX»XK*OK 

23200 

CS-COS(DX) 

23210 

5H*SIH ( OX ) 

23220 

P1-PXI-PXK 

23230 

92-PIl-PTK 

232U0 

P3«PZl*G-PZK 

23250 

PO»PXl-PX1 

23260 

P5-PXL-PT1 

23270 

P6«PZt*G-PZ1 

23280 

ZH-(P1UM+P2»B2*P3*D3)/R0 

23290 

XPUBS(ZH),lT.1.E-l5)  ZK«0. 

23300 

C»P1**2'*P2**2*P3**24RQ**2 

33310 

IF( <C-ZH**2)-KO**n>  AAA » AAA  * 667 

23320 

AAA 

Sn-ROS  GO  TO  AAB 

33330 

6A7 

ID«S0RT(C-ZH*»2) 

23300 

AAH 

DX»PXK*ZH*01/R0 

23350 

DT»PTr*ZH»02/R0 

23360 

0Z«PZr*T.H*U3/B0 

23370 

HX»(PXt-t)X>/SD 

23380 

VT»(PTL-Dy)/S0 

23390 

«Z»(PZl*G-DZ)/SD 

33000 

80-SORTfC) 

.... 
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234  10  R5-SQRT(P4**2*P5**2*,P6**2*-RQ**2) 

23420  XF-XK*R4 

23430  SR-SIN ( XR ) 

23440  CR-COS(XR) 

23450  XT-XK*R5 

23460  ST-SIN(XT) 

23470  CT-COS(XI) 

23480  ZI*ZH-DK*(2,-»JX) 

23490  irUBS(ZI),LT.1.E-l5>  XJ»0. 

23500  NS-ZI*ZI 

23510  Xr(JX-l)  380,380.384 

23520  380  HD-RS*R5 

23530  NR-XT*tir> 

23540  E1«30.*{(-SR/1I4*CS*ST/RS)/SN-ZX*(ST-XT«CT)/V||) 

23550  *2=30 . • ( ( -CR/R4*CS*CT/R5 J /SN-ZI* ( CT+XT*ST ) /NR ) 

23560  E3-30.*((ZH*SR/R4-Zl*CS*ST/R5)/SR-(XT*HS«Ct*(WO-HS)*3T 

23570  1 )/NR)/SD 

23580  E4-30.*((ZH«CR/»4-ZX*CS»CT/R5)/SH-( (VD-NS)*CT-XT*NS*ST 

23590  1 )/VR)/SD 

236C0  00  TO  386 

23610  388  WD=R4*R4 

23620  NP.-XR*HD 

23630  El-30. *((-ST/*5*CS*SR/R8)/SK+ZI*(SR-X«*CR)/WR) 

23640  B2-30,4(<-CT/R5*CS*CR/R8)/*N*ZI*<CR*XB*SR)/VR) 

23650  ZI-ZH-OK 

23660  E3-30.M  <-ZK*CS*SR/R4*ZX*SI/R5)/SN*(XH*8S*CB*(HD-WS)*S« 

23670  1 )/MR)/SD 

23680  E4-30.*( (-tH*CS*CI/R4*ZX*CT/R5)/S»*((*C-WS>*C«-XI*»»*S* 

23690  1 ) /HR  J /SO 

23700  386  EX»E3*NX*E1*U1/R0 

23710  rX-E4*UX*E2*U1/R0 

23720  EY«E3«HY*E1*U2/R0 

23730  rT-?4»WT*E2*U2/R0 

23740  ZZ«E3*WZ*E1*U3/R0 

23750  rz-E4*MZ+E2*U3/J0 

23760  A3(JJ)-((EX*TUET*T2)*8+EZ*T3)/R1»X3( JJ) 

23770  350  03(JJ)»( (rX»Tl>Pt*T2>*04.rz*T3)/*1*B3(JJ) 

23780  360  CONTINUE, 

23790  lE(XS-lS)  362,364,362 

23800  362  Er»A3(2)*<DD*DE) 

238  ->0  EG-B3(2)*(BD*DE) 

23820  GO  TO  368 

23830  368  CAlt  rU»(DD,DE,»3,EP, JO) 

23840  CRLL  rUS(DD,DE,83,EG,JQ) 

23850  368  »Q(HN)*-Er 

23860  BQ(HN)— EG 

23870’  Xfl-1 . 

23880  OO  TO  57 

23890  * ***8  POISE  EXPANSION  UNO  IMPULSE  TZStXRO  TOR 

2390'1*  ••♦BRDIOS  NOT  LESS  THAN  0,02  K*v E LENGTH 
23910'*  *•*»— rol  Z-OXRECIED  U1RE  ONLY 

23920  329  PZl-Z ( l )*Dl*ZL 
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23930 

23990 

23950  330 

23960  335 

23970 

23960 

23930 

29000 

2«0i0 

29020 

29030 

39090 

29050 

39060 

3U070 

29060 

29090 

29100 

29110 

29120 

29130* 

291U0* 

29150* 

29160* 

29170 

29180* 

29190* 

29200* 

29210  38 

29220 

29230 

29290 

29250 

29260 

29270 

2«2P0 

29290 

293C0 

29310 

29320 

29330 

29390* 

29350* 

29360* 

29370* 

29380  92 

29390 

29900 

29910 

29920 

29930 

29990 


PL"  1 ■ 

IF ( G ) 330,335,335 
PL"” 1 a 
*33»DK*,5 
R93-Dl*,5 
XX»X(10-X(l) 

TT"Y(K>-X(L) 

33(1)-PZK-PZL*G 
33(2)«S3M)*R33*R93 
S3(3)"S3<  U-R33-R93 
»3(9)«S3( 1)*R33-R93 
*3(5)«S3( 1)-R33*R93 
0X"0ME*XNU*DK*Dl 
DO  60  1-1,5 
ZZ(X)-S3(X) 

C-XX**2«-Xr**2*ZZ(X)**2*RA(l)**2 

SJ"ZZ<I)*ZZ(I) 

AA»C-ZJ 
B-SQRT ( C ) 

ABZ-AES ( Z Z ( Z ) > 

♦♦♦DISTANCE  BETWEEN  2 PULSES  POT  LISS  THAP 
***10*0.25*LEHGTH  OP  SUBSECTION  ? 

Ir(B-10,*ALP)  92.38,38 

••♦TRIP  WIRE  APPROXIMATION 

ACOS"COS(XX*B)/(2,*AK*B) 

BSIP— SIP(XK*B)/(2.*AK*|) 

ZR2-Z J/C 

XF(ZR2.LT, 1.E-10)  ZR2-0, 

ZR9-ZR2*ZR2 

DR2-ALP*ALP/C 

H"(-1.*3.*ZR2)/6.*(3.-30.*ZB2*35,*Z»8)/90,*D»2 
A2"-Zn2/6.-DR2*( 1.-12.*2B2*15.*ZB4J/90. 

A2-A2* 1 , E5 

XZR-1.E5*XD*ZR9/120. 
PSI1«i.*DR2*H*XD*(A2*XZR)*1»E-S 
PSI2*XKD*<H*XD*<3.*XR2'5.*ZR9)/60,)*AIP/B 
80  TO  50 

•••COPSTAHT  CURRENTS  ARE  ASSUMED  OVER  THE  SURFACE 
***0r  THE  CILINDSR  INSTEAD  or  OP  A FILAMENT 

C-AA*2.*ZJ 
B-SQRT ( C ) 

ACOS"COS(XK*B)/AK 
BSlK— SIH<XK*B)/AK 
A0»XL*3* . 5 
A T — C 1.”Xl*C*.5 J/APl 
A2"-XL* . 5/AKl 
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24450 

244*0 

24470 

24400 

24490 

24500 

24510 

24520 

24530 

24540 

24550 

24550 

24570  29 

24560  45 

24590 

24600 

24610  44 

24620 

24630  46 

2464Q 

24650  52 

24660  53 

24670 

24660 

24690 

24700 

24710 

24720 

24730  47 

24740 

24750 

24760  48 

24770 

24780* 

24790* 

24600* 

24810* 

24820  50 

24830 

24840  60 

24850  56 

24860 

24870 

24880  64 

24890 

24900  68 

24910 

24920  54 

24930  55 

24940* 

24950* 

24960* 


BO«XKM-.S*XL*{C*,25*(ALP*ALP/3t*C*AA)/12,)  ) 
B1«XK*8»(  1,-XL*C/6.)/AKJ, 

B2«-XK*Xl*B*.5/AKl 
BO  45  «Z«1.N5 
BK*HZ“ 1 

ZP«ALP*({BN*BN)/AN-1.) 

ZX“ZZ ( X ) -ZP 

Z3“4,*AA*ZX*ZX 

Z2-SQRKZ3) 

P»4.*AA/Z3 
B3(HZ)-BLE(P)*Z2 
IF(ABZ-AFI)  45,45.39 
A3(MZ)*EiK(P)/Z2 
CONTINUE 

CALL  FUN<AW,AV,B3,B5,N5) 

Xr(ABZ-API)  46,46,44 
CALL  rUK(AH,AH,A3,A5,N5) 

CO  TO  41 
AI»1. 

Tr(ABZ-1.E-5)  52,53,53 
AI-2 

DO  47  nZ-1«N6 
BW-MZ-1 

TP-AK*.2S*Bir/cir 

*=SIN(IP) 

T3“ALP«ALP*AA*S*S*AI*AI 
T2“ALP*SQRT ( Y 3 ) 

»7-T2/{AI*BA(D) 

A3(MZ)*AL3G(L7) 

CALL  FUR(CW,CN,A3,A4,n6) 

A5*AI*(.5*AK»BiO*2,*A4)*,5 

|SI1«A0*A1*A5*A2*B5 

PSI2-B0*B1*A5*B2*B5 

♦••Calculate  the  field  at  the  positions  or  nines  non 

••♦BOON  PULSE  CUBBENT  EXPANSIONS 

AP(I)“ACOS*PSI1-BSIN*PSI2 

BP(I)«BSIN*PSI1*ACOS*PSI2 

CONTINUE 

AQ(rN)«-OX*BPM)*(BK4>*BP{5)-BK2)-BK3)  )/OHP 
BQ(HN)«OX*AP( 1)-(AP(4)*AP(5)-AP(2)-AP(3) )/OHP 
SO  TO  68 
AQ(«N)»A0(HE*2> 

I0(«»)"B0(«»*2) 

AK* ,75 

ir(HN-l)  55, S3, 54 
XF(MN-4)  57,55,55 
AH“,25 

••♦CALCULATE  TOTAL  FIELD  FBOH  4 PULSE  OB  2 HALF  SZN 
•••CUBBENTS  (CC,CD) 
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24970* 

2 u 9 r 9 57 

CC»A0<nil)*AH*CC 

24990  69 

CO»B0(nN)*AH*CD 

25000 

Xr<KIC.B0.2)  50  to  76 

25010 

:r(Ks, Nt.LS.o9.nl, ec. 0)  eo  to 

41 

25020 

tr (KQ.GT.2)  GO  TO  41 

25030 

Xr(lQ.Ea.3.OR.LQ.E0. 15)  GO  TO 

• 9 

250U0  41 

2r(Nl,E0.26.09.XT(KS).Eg,lOOO) 

GO  TO  76 

25050 

IfUJ)  76,160,76 

25000  HO 

zr ( NB ) 161,76,161 

25070  1C1 

If(N-l)  167,166,167 

25060  166 

K3-K3*1 

25090  H7 

C3(K3,M) "CC 

25100 

C4(X3,N)>CB 

25110 

U(K3)-K 

25120 

GO  TO  76 

25130  «9 

C5(«,n)-cc 

2S1U0 

(6  Ol,  N ) «CD 

25150 

•0  TO  76 

25160  37 

X3-15 

25170 

Zr(RO.LT.lS)  Z3-3 

25160 

|1«En-E5(K)*(E0-l3) 

25190 

3i»l»*»S(l)*{ 124I3-90) 

25200 

GO  TO  43 

25210  40 

Z1"KH«Jr 

25220 

3i*L»-jg 

25230  *3 

C1(KH,LN)>C1(X1,J1) 

252-0 

C2(icn,t»)»c2(ii,Ji) 

25250 

GO  TO  78 

25260  72 

E1-KH-1 

25270 

t2«LN-1 

25260 

C1(KH,LN)-C1(K1,L2) 

25290 

C2(KH,l*)»C2(K1,L2) 

25300  79 

ciu»,Kn)-ci(Rn,L9) 

25310 

C2(LN,KM)>C2(KH,LV) 

25320 

00  TO  78 

25330* 

25340* 

••♦CALCULATE  THE  HATBIX  ELXHZBTS 

OF  (C1,C2) 

25350* 

25350  76 

C1(XH,LN)-CC*C1(KH,IH) 

25370 

C2(Kn,LN)>C0*C2(Kn.LN) 

2S3C0 

Zr(KK.Ea.1.ANt>.(NL.NE.26.A>D,MK,9Z.26))  GO  TO  79 

25390  78 

CONTINUE 

25400  455 

CONTINUE 

25410  460 

CONTINUE 

25420  80 

CONTINUE 

25430  324 

CONTINUE 

25440  325 

CONTINUE 

25450* 

25460* 

•••ADD  THE  LOAD  AZ.Bt 

25470* 

25480 

DO  90  H*1,M 
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25490 

1*11 (H) 

25500 

C1(I.I)-C1(X,I)*AX(H) 

25510 

25520* 

90 

C2(I,I)*C2(I,I)*Bt(H) 

25530* 

255U0* 

••♦XHVERT  THE  HATRIX  C1,C2 

25550 

HT*HH 

25560 

98 

DO  105  X* 1 ,Mt 

25570 

105 

IR(X)*X 

25580 

OO  118  M- 1 «MY 

25590 

x*n 

25600 

oo  102  i-h.my 

35610 

A1-C1(X,H)*C1(X,H)+C2(X,n)*C2(X,H) 

25620 

A2*C1(K,n)«C1(K,H)*C2(K,H)«C2(IC,H) 

25630 

Xr(A1-A2)  102.102,106 

256U0 

106 

K*I 

25650 

102 

COHTIKOE 

25660 

IS“IA(H) 

25670 

IROO-LIUK) 

25680 

iR(K)-lS 

25690 

J TOR  1 *C 1 ( K , H ) 

25700 

STOR2*C2(K»H) 

25710 

IP*SIOR1*STOR1*STOR2*STOR2 

25720 

oo  107  j*i,m 

25730 

8 T0 1 »C 1 ( K , J ) 

2S7U0 

ST02*C2(K,J) 

25750 

ckk,j)-ci(h,j) 

35760 

C2(K,j)-c2(n.j) 

25770 

C1(M.J)-(ST01«ST0R1*ST02*ST0R2)/SB 

35780 

107 

C2(M,J)*(ST02*ST0R1-ST01*ST0R2)/SD 

35790 

cn*ci<n.n> 

25800 

Cl (M.M)*<C1(N,H)*STOR1*C2(H,H)*STOR2)/SD 

25810 

C2(H,M)-(C2(!1,H)*STOR1-C11*STOR2)/SO 

25820 

DO  118  X* 1 .NT 

25830 

Xr(X-H)  112,118,112 

25890 

112 

»T1-C1(X,H) 

25150 

ST2*C2(I,n) 

25860 

C 1 ( X, H) *0 

35870 

C2 ( I, H ) *0 

35880 

do  no  j*i,nr 

35890 

C1(X,J)-C1(I,J)-C1(H,J)*ST1>C2(H,J)»ST2 

35900 

C2(I,J)-C2(X,J)-C2(H,J)*ST1-C1(H,J)*ST2 

25910 

110 

COHTIKUE 

25920 

118 

CORTIHUB 

25930 

DO  109  J" 1 , HT 

2S9U0 

119 

IRJ-LR(J) 

25950 

DO  113  1-1, HT 

25960 

T i-c i ( i, or J ) 

25970 

T2-C2 ( X, LR J ) 

25980 

C1(X,LRJ)*C1(X,J) 

25990 

C2(I,LRJ)*C2(X,J) 

26000 

CKX.J)-I1 

k 
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26010  113  C2(I.J)-I2 

26020  L-LR(J) 

26030  1,8  ( 0 ) *LR  ( LUO ) 

26QU0  IR(LRJ)*L 

26050  XP<  J-LK(J))  1 14,  109#  11** 

26060  109  CORTXNUE 

26070  300  XplW*0 

26080* 

26090*  ***C8lCUL8TE  THE  CURRERT  8C.3C 
26100* 

26H0  31U  BO  69  X-1,HH 

26120  8C(X>*0 

26M0  Bctl)*0 

261U0  DO  SI  J-1.BW 

26150  8B»«RV(J)**2*BV(J)**2 

26160  Xr<8BV.lT,1.E-8)  00  TO  51 

26170  K-ir(J) 

26180  RC(I)-AC<I)*C1CX,K)*RV<J)-C2(I,K)*BT<J) 

26190  BC( T )-BC{X)*C1 (1,8 )*BV(J)«C2( I. K)*»»(J) 

26200  51  COBTXNUE 

26210  65  eoBTXBUS 

26220* 

26230*  ••♦CALCULATE  THE  IWPUT  POWER  Pin 
26240* 

26250  PIB*0. 

26260  Hx* 1 

26270  88*1 

26280  BO  246  1*1. WH 

26290  K*Xr(X) 

26300  Xr(BB.Wf!.0)  SO  TO  244 

26310  XFd.EO.I)  GO  TO  242 

26320  XI-I-1 

26330  HX*HX*BS ( XX ) 

2634Q  242  Xr<K.EQ.!1X.AWD.RBS(r<X>).iT.1.E-5.RED,I0.«Q.1)  88*. 5 

26350  244  fXN*FXN+AA*(AC(K)*AV(X)+BC(K)*BV(X)) 

26360  346  COBTIKUE 

26370  Xr(XBS.EQ.O)  8PXM-PXB 

26380  XF(XRG.EQ.O)  SO  TO  316 

26390  XPI»*IPI»*1 

2 6400  Xr(XPXN.GT.I)  GO  TO  316 

26410  PSQ*SQRT(6PIH/PIH) 

26420  BO  312  1*1. HM 

26430  8 V < I J *8V ( I ) *PSQ 

26440  312  8V<I)-BV(I)*PBQ 

26450  IF(IPIB,EQ,1)  GO  TO  314 

36460  316  Xr(IC.EQ.O)  SO  TO  70 

36470* 

26480*  ••♦CALCULATE  ABD  WRITE  OUT  THE  COUHXBO  COEPTICXEBT 
26490* 

26500*  WRITT.t  2.63) 

26510  WRITE | 6,63 ) 

36520  63  roRHAK//'  COUPLXBG  COEPPICIEBT*  J 


26530*  WBITK{ 2# 1 20 ) 

265U0  WRITE ( 6,120) 

26550  120  r0RHAT(/‘  ANTENNA  NO.  POWER  RECEIVED  ( DB ) * ) 

26560  H=0 

26570  DO  IttO  1-1. NB 

26580  NX-1 

26590  Xr(II(I).EQ.l97)  NX-26 

26600  lr(IT(I).BQ,l097)  NX-5 

26610  PRE-0 , 

26620  DO  130  K-1.NX 

26630  H-H* 1 

266U0  lrtNX.EQ.26.ANDtK.ST, 2)  SO  TO  130 

26650  MKR) 

26660  »RE-PRE*AZ(n)*(AC(J)*AC{ J )*RC< J ) *RC ( J ) ) 

2667Q  130  CONTINUE 

26680  XF(I.EQ.IV,OR.IT(X),EQ,1000)  SO  TO  140 

26690  AA-PRE/PIN 

26700  ADB».i00. 

26710  Ir(AA.ST.I.E-IO)  AD8-lO,»AiOOlO(AA) 

26720*  WRITE(2.125)  I,ADB 

26730  WRITE ( 6,125)  I.ADB 

267U0  125  P0RHAT(I6, 13X,E10,2) 

26750  1U0  CONTINUE 

26760  70  Xr(IEP.EQ.O)  00  TO  82 

26770* 

26780*  "‘CALCULATE  AND  WRITE  OUT  TNI  VERTICAL  RADIATION  PATTERN 
26790* 

26800  WRITE (6.71) 

26810*  VRlTEt  2 • 7 1 ) 

26820  71  roRMATt//'  VERTICAL  PATTERN') 

26830*  VRITEt  2*73)  APHI 

26890  VRITEt  2 ) 9, 1 , APHI 

26850  WRITE (6,73)  APHI 

26860  73  roRNATt /'  PHI-',r7,1) 

26870  74  fORMATt/'  THETA  NBAS  RRAS(DB) * ) 

26880  AIT-181. 

26890  Xr(IG.EQ.I)  AIT-90, 

26900  AHAX-0. 

26910  ATH-0. 

26920  XT-1 

26930  CALL  PA?T(APHI#ATH,IW,AXT,AXWI,AHAX, APIR, AH, XT, TA) 

26990*  WRITE ( 2#  7tt ) 

26950  WRlTE( 6,79) 

26960  CALL  NPAKAnAX.AIT.AXNT.RrP) 

26970  82  Xr(XrT.EQ.O)  SO  TO  83 

26960* 

26990*  ‘"CALCULATE  AND  WRITE  OUT  THE  HORIZONTAL  RADIATION  PATTERN 
27000* 

27010  WRITE (6,201) 

27020*  WRITE (2*201) 

27030  201  FORHAK//'  HORIZONTAL  PATTERN*) 

27040*  WRITEt  2<  61)  ATHE 


27050 

27050 

27070  81 

27080  85 

27090 

27100 

27110 

27120 

27130 

27140* 

27150 

27160 

27170* 

27180* 

27190* 

27200 

27210  83 

27220* 

27230* 

27240* 

27250* 

27250* 

27270 

27280  86 

27290* 

27300 

273 1 0 87 

27320* 

27330 

27340  99 

27350 

27360 

27370  100 

27380 

27390 

27400$ 

2741Q* 

27420* 

27430* 

27440 

27450 

27460 

27470 

27460 

27490 

27500 

27510 

27S20 

27530 

27540 

27550 

27560  70 


WRITE ( 2 ) 5, 1 , ATHE 
WR ITE ( 6 , 8 1 ) ATHE 
roRMAT(/'  IHETA«‘,E7,1) 

FOHMAT(/'  PHI  SHAG  »!UG(OB)'> 

AMAX-C. 

xr»2 

AIP-360, 

APH-0, 

CALL  PATT(APH,AIHE,IU,AIP,AX»P,AMAX,APIH,A1T,IT,PA) 

WRITE(2,85) 

WHITE ( 6>85) 

CALL  WPAI(AHAX,AIP.AIWP,HrP) 

••♦CALCULATE  AVD  WHITE  OUT  THE  pATTEIN  OISTHI8UTIOI1 

lF(DPEI.GTt1.E-3)  CALL  PAID ( DPER, IDB, HTP ) 
ir(ISG.EO.O)  GO  TO  100 

••♦HEAD  DATA  IW  SCREEW-rilE 

•♦•CALCULATE  awd  WHITE  OUT  the  CCnnUWICATIOH  RAWGt  cohtou* 

VRTTE( 2, 86 ) 

WRITE ( 6, 86 ) 

P0HHAT(//'  COfiHUHICATIOS  HAMGE  COWTOUH') 

WHITE ( 2, 99 ) tALT<I),I»1,WA) 

WHITE ( 6*99)  (ALT (I), 1*1, HA) 

POHHAT ( /'  PHI{DEG)*,12X,*RAHGB(WH)<) 

VRITE( 2#  87 ) 

WRITE (6,87) 

roRKAT</*  ALT(fT)',6r8,1/(9X*6P8,1)) 

IT  = 3 

call  PATT ( APHI, ATHE, IW, AIT. AIWP.AHAX, APIH, ALT.IT.PA) 

COWT1WU* 

STOP 

EWD 

rORTHAI 

•••SUBHOUTIWE  PATT  - TO  CALCULATE  RADI ATIOW  PATTERS 

IUBROUTIWE  PATT(APHI,ATHE,IW,AIT,AIWT,AHAX,PIH,ALT»IX,PA) 
COHHOW  X.r,Z,X1,T1,Z1,H0,KS,rP,AK,IG,NN,HB,AC,BC#ZT,AZiWA,RWG 
1 , GAEL, TRAKEL,AHTEL,DTA,BTA,DBn,lrP, ITT, IRQ 

DI.tEKSIOII  X(2;0), 1(200), Z(200),HO(200),HS(200),AC{500)»RHG(6J, 

1 PA(40), 71(200), y1(2OO),Z1(20O),IT(20),AZ(361),BC(S00), 

2 ALT(6)*AZH(6).Gx(3),GX(3),GZ(3) 

XH6»IG 

>K-AK*rP/3aE8 
R2"2i*3437, 76*6080. 

R?*R2». 5*. 3048*4. /J. 
fX»1.E-7*AR*rP 
9 1*0 
Ji«Jl»l 


I 
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1 
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27570 
27580 
27590 
27600* 
27610* 
27620* 
27630  31 
276U0 
27650* 
27650* 
27670* 
276C0  3U 
27690* 
27700* 
27710* 
27720  36 
27730 
277UQ 
27750* 
27760* 
27770* 
27780  38 
37790 
27800 
27810 
27820 
27830 
27890 
27850* 
27860* 
27870* 
27880 
27890 
27990 
37910 
27920 
27930  39 
27990* 
27950* 
27960* 
27970 
27980 
27990 
28000 
28010 
28020 
28030 
28OU0 
28050 
28050 
28070 
2808Q 


iF(irp.?Q.i.6SD.ir.ra.i)  go  10  31 
XFdFT, to. 1,810.17.80.2)  GO  TO  Jtt 
IFtlBG.FO.I)  GO  TO  38 

***VEBTICAl  PATTERS-  COMSTAHT  PHI,  VA8I  THETA 

ir(JI.HE.I)  ATHE«ATHE*AX>T 
GO  TO  36 

***KOBIZORTAl  PATTEBH-COKSTAHT  THETA, VABI  PHZ 

IF(JI.HE.I)  APHI*APHI*AIHT 

«**flHD  PHI,  THETA  IK  RADIARS ( PHI, THE ) 

PHI*APHI/57, 29578 
THE-ATHE/57, 29578 
GO  TO  39 

***COHHUHICATIOH  RAHOE-BEAD  LIME  OF  SIGHT  DATA 

BEAD  ( 3 ' <J  1 ) ZZ,EtAHG,DIST,RHG 
XF(Z2.GT. 9998, /57, 29578)  GO  TO  100 
AX»DIA*SIH<BIA) 

AT«DIA*COS(BTA) 

8X-DIST*SIB(ZZ)«, 3048 
fr»DIST*CoS(ZZ)*.301t8 
ATS«S08T(dX-AX)**2F<sr.Ar)**2) 

*»♦  FlHD  PHI, THETA  18  8ADIA8S 

PKI«ATAR2((SX-AX), (SI-AX) ) 

XrJPHX.lT.O.)  PHI*PHI*2, *3, mi 5927 

HSCRH«DIST*.3098*SIH(E1AKG*DIST/B2)/COS(ZIAHO*DIST/II2)*TBA»EA 

TTH=ATAH2(HSCPH-A»TEl-rA(IH),ATS)-ATS*,75/(E2*,30U8) 

TH E« 3,181593*, 5«TTH 
11*0 

••♦CAlCUUTE  COOBDINATES 

CP*COS (PHI) 

CT-COS(THB) 

SP--SIH(PHX) 

ST*SIH ( THE ) 

AE«0. 

8E*0, 

BX*HB 

ir(NB.IQ.O)  NX-BM 
1*0 

PC  20  KS*  1, RX 

BK*  1 

HK-0 
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38090 

Xr(HB.EQ.O)  GO  TO  3 

38100 

Xf (IT(KS) ,EQ. 1097)  NKsS 

38110 

xr(iT(Ks).eg.i9?)  «k»26 

38120 

Xr(WK.Ea.26,A»D.KS.80.XV) 

BK-1 

28130 

3 

DO  20  KQ*1,HK 

28140 

bw-o 

38150 

1*1+1 

28160 

XF ( KK • ME • 26 ) GO  TO  56 

28170 

Xr<KQ-14)  50,50.54 

28180 

50 

XF ( KQ , EQ , 2 ) GO  TO  56 

38190 

BV-1 

28200 

OO  TO  56 

28210 

5a 

Btf«3 

38220 

56 

trtl-l)  10,10,45 

28230 

45 

Xr(MK.EQ.O)  GO  TO  5 

28240 

Xr(KQ.GT.3.AND.K0.»r,l3) 

GO 

TO  10 

28250 

5 

JJ-I-1 

282S0 

b-b+ms( jjj 

28270 

10 

KSI-HS(I) 

28280 

KG-1 

28290 

ir(IG)  12,14,12 

28300 

12 

Ir(Z(I))  14,13,14 

28310 

13 

»G*0 

28320 

14 

AK-HSI+HG 

38330 

Xf(KQ.GT, 14)  BG-0 

38340 

Xr(NK,EQ.26tA80,KQ.t)E.2) 

AB-AK-1, 

28350 

PO  20  J-1.HSI 

28360 

A1-J-2+HG 

38370 

B-B+J 

28380 

PO  20  1-1,3 

28390 

AX-l 

28400 

KK-  1 

28410 

A-A1+AX+.S 

28420 

Xr(J..NE,2)  GO  TO  32 

28430 

A2-1. 

28440 

XF(BK.EQ, 1.AND.J.EQ.NSI) 

KK- 

2 

28450 

Xr(BV.EQ,3,AND.J.E0.1)  KK 

-2 

38460 

32 

BB-KK 

28470 

PO  20  K-1.KK 

28480 

XFtJ.HE.I.ABD.L.EQ.I)  SO 

10 

35 

284«0 

T1«X1(I)-X(I) 

28590 

T2«T1(I)-r(X) 

28510 

T3-Z 1 ( I )~Z ( I ) 

38520 

DK-HO ( I ) /AX*  , 5 

38530 

XF(BH.Mr.1,08,J.»E.NSI)  00  TO  60 

28540 

Xr(KK.MZ.2.AKD.L.NE.3)  50 

TO 

60 

28550 

58 

T1-0. 

38560 

T2-0 , 

28570 

T3-1. 

38580 

DK-.0075 

28590 

GO  TO  65 

28000 

60 

Xr(BW.Nr.3,0ft.J.NE.1)  GO 

TO 

65 
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28610 
2e620  65 
28630 
286U0 
28650 
28660 
28670 
28680 
28690 
28700 
28710 
28720 
28730 
287U0 
28750 
28760 
28770 
28780 
28790 
28800 
28810  35 
28820 
28830 
288U0 
28850 
28860 
28670 
28880* 
28890* 
28900* 
28910 
28920* 
28930* 
28990* 
28950* 
28960 
28970 
28980 
28990 
29000 
29010 
29020* 
29030* 
29090* 
29050* 
29060  29 
29070 
29000 
29090  15 
29100  16 
29110  17 
29120 


XF(KK,EQ, 1,AND.l,NE,3)  GO  TO  58 
RO* SORT (T1»T1*T2*T2 *13*13) 

D A*DK*  A*2  ,/80 
PX*X  ( I ) *D A*T 1 
PY*T ( X ) *D A*T2 
PZ*Z(I)*DA*T3 

IrOlW.EQ. 1.AND.J.EQ.NSI)  PX«X1(I) 
Xr(MH.EO.I.AHD.J.EQ.HSl)  PT«=I1(I) 

IPdlH.EO, I.AND.J.EQ.NSl)  PZ-Z 1 ( I ) ♦ ( AX«2 . ) *DX 
SS-DK*. 5*3, 191593 
IF(L.NE,2)  A2-.5 
PD*A2*DK/8B 

8T“(T1*CT*Cp*T2*CT*SP)/R0 

DS«-T3*$T/80 

PS“BK*(PX*CP*PI*SP)*ST 

P3"COS(PS) 

P9«SIN(PS) 

PQ“BK*CT*PZ 

P5«SIN(PQ) 

P6*COS ( PQ ) 

»1«P3*AC(M)-pa*BC(II) 

P2*P3*BC(N)*P9*AC(N) 

AGTD-0. 

■gid-o. 

OX(L)«PX 

•T(t)«PT 

OZtU-PZ 

•**FIND  WHETHER  XHAOE  FIELDS  EXIST  (XHG«1),  08  8CI  (IMG-O) 
XF(l.NE.3.0R.K.EE, 1)  GO  TO  29 

calculate  coordinate  gx.gtiGz  of  thesegheiis  rot  gtd 

**♦  (rOH  FUTUIE  USE) 

0X(1)«2,*GX(1)-0X(2) 

BT(1)*2,*GT(1)-GI(2> 

OZ( 1)-2,*GE( 1)-GZ(2) 

OX(3)«2,*GX(3)-GX(2) 

6T(3)»2,*GI{3)-GT(2) 

GZ(3)«2.*GZ(3)-GZ<2) 

**»GTD  IS  WOT  CONSIDERED 

***PIND  DIFFRACTION  FIELDS  BT  GTD  ( AGTD, BGTD) 

*»*  (FOR  FUTUBE  USE) 

CONTINUE 

AA*IMG 

XF(J-I)  17,15,17 
XF(Z(I>)  17,16,17 
AA«0, 

AP»1,*AA 

AH»1,-AA 
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29130  0S-P5*(DT*AP*DS*AH) 

29140  0C»P6*(DT*A!1  + DS*AP) 

29 '50* 

29160*  ***CUCULATE  RADIATION  PATTERN  E(A8,BE) 

29170* 

291  BO  AE«AE-<P1*QC-P2*QS)*DD*AGID 

29190  BE«BE-(p1*QS*P2*QC)«DD*BGTD 

29200  20  continue 

29210  BB»AE»AB*BE*BS 

29220  AZ(J1)«FX*SQRT(SB) 

29230* 

29240*  ***C0MHUNICATI0N  BANSE  C0NT0U*-IT-3,IRG-1 
29250* 

29250  irdBC.EO.  1.AND.IY.E0.3)  00  TO  72 

29270  IF(AZ{J1),GT,AHAX)  AMAX=AZ(J1) 

292C0  TF(lFP.EQ.1,AND.IT,EQ,1.AND.ATHE.I.B,AIT*.O01-AXNT)  GO  TO  70 

29290  IFdFT.EQ.  I.AND.II.EOd.AND.APHI.lE.AIT^.OOI-AlWT)  GQ  TO  70 

29300  GHAX=AMAX*AM AX /PIN/30, 

29310  ODB-10.*ALOGlO(OHAX) 

29320* 

29330*  ***WRITE  RADIATION  PATTERN  A«AX,GHAX,ODB 
293U0* 

29350*  WRITE ( 2 « 28  0 ) AHAX, G«AX , GDB 

29360  WRITE (6,280)  AHA  X, GHAX , SDB 

29370  WIITE(2>2.3,AMAX,GMAX.GDB 

293B0  280  FORMAT ( /'  IHAX-' , F8 . 3 , ' GAIN-* ,F7.3i * GAIN ( DB ) •* ,2* , 2) 

29390  GO  TO  100 

29UO0* 

29910*  »**CALCULATE  RANOES  FROM  IKE  ANTENRA  ,RNG 
29420* 

29430  72  RRR-AZ(J1)/(BK*SQRT{ 120,*DBH) ) 

29440  DO  80  1=1, HA 

29450  BU»RNG(I)*1852./R3 

29460  VV«AIT(I)*,3048*GREI*R3 

29470  WW»ANTEl*FA(IW)*R3 

29480  RR-SQRT(VV«*2*WW»*2-2.*VW«VV*C0S(UU)  ) 

29490  ALP=1, 

29500  XF(RRR.G7,VV-WW)  ALP«(WV**2*VT**2-RRR**2)/< 2,*WW*V») 

29510  PPP*ARCOS ( AlP ) 

29520  ir(RRR.lT.RR)  RNG ( I ) =R3*PPP/ 1 852 . 

29530  RG-1.E-5 

29540  IF(RNG{I).0T.1.E-8)  RG-RNG ( I ) * 1852. 

29550  0Q1*(ALT(I)*.3048*GREI-ANTEL-FA(IW) )/RG 

29560  0Q0-ATAN(0Q1)»RG/(R3*2.) 

29570  XF(RR.tT.aAR)  QQO-TTH 

29580  ATH(I)=QQQ*57. 2957$ 

29590  80  CONTINUE 

29*00  APHI=FHT*57, 29578 

29610  ATHF«90,-THE*57, 29578 

29620*  WRITE (2,74)  APHI, { PNG ( I ) , 1= 1 , NA ) 

29630  WRITE ( 6,74)  APHI, { RNG ( I ) , I- 1 , N A ) 

29640  74  roRHAT(F7.2,1X,6F8.1/(Cre.1)) 
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29650  00  TO  70 

29660  100  RETURN 
29670  tK'O 

29600$  FORTRAN 

29610* 

29700*  •••SOUBROUJlHt  rUN  - NUNERXCAi  INTEGRATION 
29710* 

29720  SUBROUTINE  ruR (DD,DE,T9, SUB. NOTH) 

29730  DIKT.NSION  19(13) 

2974*0  SUH*0 

29750  BDK*>NDlH/2*  1 

29760  PO  10  X-2.NDIH 

29770  HH-.5*DE 

29780  Ird.LE.NDH)  HH»,5«DD 

29790  SUM-Sun*HH*(Y9(I)6l9d-1)) 

29800  10  CONTINUE 

29810  RETURN 

29820  EnO 

29830$  FORTRAN 

29H0* 

29850*  ***ruNCTI0N  ELI  - EIXFTIC  INTEGRAL  OP  SECOND  KIND 
29860* 

29870  FUNCTION  ELI(P) 

29880  IF < P-1 . ) 3.5,4 

29890  0 HRITE( 6,100)  P 

29900  STOP 

29910  100  PORHAT(  10X, 'ILLEGAL  ARGUMENT  TOE  Bit.  ARG«‘,E13.4) 

29920  5 EL E*  1 . 

29930  RETURN 

29940  3 AH1»1.-P 

29950  ELK- 1.* AH 1*(. 4630 151*. 10778 12*AH1-(.2*52727*,0* 12496 

29960  X • AH  1 ) • ALOG ( AH  1 ) ) 

29970  RETURN 

29980  end 

29990$  fOATRAN 

30000* 

300 '0*  ***rUNCTION  BIX  - ELIPTIC  INTEGRAL  OP  FIRST  BIND 
30020* 

30030  FUNCTION  ElK(F) 

30040  lr<P-1.)  3,4.4 

30050  4 WRITE ( 6, 100 ) P 

30060  STOP 

30070  100  PORMAT(10X, 'ILLEGAL  ARGUMENT  FOR  ILK,  ARG«*,Sl3.4) 

30080  3 AN1*1.-P 

30090  ELK»1.386294*AH1*(.1119723*,0725296*AH1)-(,5*AH1* 

30100  X ( . 1213478*,0288729»AH1) )*ALOG(AH1) 

30110  RETURN 

30120  END 

30130$  FORTRAN 

30140* 

30150*  ***SUBKOUIXNE  PXTt  - TO  CALCULATE  POSITION  <X,T,l),  (11,11,11) 
30160* 


USArUR 


usarle. 


URAEVK 


USAPXT 
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)01?0  SUBROUTINE  PXXZ 

30180  COMMON  X.X.Z,X1.Y1.Z1,H0,NS,rP,AK,I0,NR,NB,AC.BC,lT,AZ.NA,BNG 

30190  1 ,G*El,TRANEL.ANTEL,DTA.BTA,DBM,lrP, IFT.IRS 

30200  DIMENSION  HO(200).X(200),T(200).Z<200).X1(200>, *1(200). 

30210  1 21(200). N5(2QD>.AC(500>.8C(500),II(20).AZ{361),*NG(6) 

30220  RX-NN 

30230  IF ( NB ) 2.2.1 

302t0* 

30250*  ***ENTEB  ANTENNA  TTFE  FOR  THE  SIMPLE  FBOOHAH  ANITINA 
30200* 

3027Q  1 IF(NB.NE.O)  READ(1,20)  (IT( I ) . I- 1 * *■ > 

30290  NX*N8 

30290  THO* 1 50 . 

30300  FHO-O, 

30310  THX-THO*. 0170333 

30320  C*=COS(TKX) 

30330  IIT-SIN(THX) 

30300  2 1-0 

30350  00  319  LS-1.NX 

30350  NK«1 

30370  IF(NB.EQ.O)  SO  TO  318 

30380  IF(IT(LS). EQ.1097)  NK-S 

30390  IF(IT(LS).E0.197)  nK>26 

30000  318  00  315  LQ-1.NK 

30010  l«L*1 

30020  ALS-LQ 

30030  IF(NB.EO.O)  SO  TO  30S 

30000  IF(II(I5).NE.197)  SO  TO  305 

30050  XF(LQ-2)  305,305.303 

30060  303  IFUO'10)  312.312.308 

30070* 

30080*  ***CALCULATE  ANTENNA  POSITION  (X, I, Z ) , (X 1 , T 1 . 11 )FOR  GENERAL 
30090*  ***PROGRAH  ANTENNA  AND  SUB-ANTENNA  NINE  N1,2  OF 
30500*  •••IIMPIE  PROGRAM  ANTENNA 
30510* 

30520  305  X1(L)-X(L) 

30330  IKt)-T(L) 

305U0  ZKL)-Z(l)*M0(l) 

30550  10  TO  315 

30560* 

30570*  •••CALCULATE  (XI, II, El)  FOR  SUB-ANTENNA  *15-26 
30580* 

30590  308  ?H1-30.*(ALS-15,)*PH0 

30600  PHX-PH1*. 0174533 

30610  X1(l)«X<L)*XO{L)*COS(PNX) 

30620  TKL)-I(L)*HO(L)*SIN(PHX) 

30630  ZKl)«Z(l) 

306U0  00  TO  315 

30650* 

30660*  •••CALCULATE  ( X 1 . T 1 , Z 1 ) , ( X, I, E ) FOR  SUB-ANTENNA#3-1* 

30670* 

30680  312  ?H1-30.*(AIS-3,)*PH0 


10690 
30700 
30710 
30720 
30730 
307u0 
30750 
30760  3 15 
30770  319 
30790  2C 
30790 
30600 
30810* 
30620* 
30830* 
30890* 
30850 
30860 
30870 
30880 
308°0 
30900 
30910 
30920 
30930  20 
309UQ 
30950 
30960 
30970 
30980 
30990 
31000  SO 
31010 
31020 
31030* 
310«0* 
31050* 
31060* 
31070 
31080 
31090 
J1100 
31110 
31120* 
31130* 
JiloO* 
31150* 
31160 
31170 
31160  10 
31190 
31200* 


PHX-PX1*. 0179533 
XML)-X(l) 
y i ( t )«t( t ) 

X(L)«X1(l)*HO<L)«*II*COS(PHX) 

T(t)«T1(L)*H0(l)*SIT*SiytPHX) 

X(l)B(1(L)*K0(L)*C 

CONTINUE 

CONTINUE 

rOBHAT(lS,13X9) 

utum 

BND 

Fortran 

••♦subroutine  qzp  • To  calculate  size  or  hatbxx  usable  aoaxn 

(UB80UTI  MS  0ZKK1,L8,II.19.I1X.HZ,XX,NP) 

COMMON  X.T.I.X1,I1.Z1,HO,KS,rP,AK,IG,NH,HB,AC,BC,XT,AX.NA#BNO 
1 .GREl.TRAHEL.ANTEL.DTA.BTA.DBH.XFP.irT.IRG 

DIMENSION  X(200 J. 1(200 ).«( 200) .HO (200) . NS ( 200 ) » AC ( 500  ) . 

1 5C(5CO).X1(200).X1(20G).Z1(200).XT(20).:ip;23).AZ(361). 

2 RNG(6)|J«0 

PO  20  I-KX.K1 
0-J*BP(X) 

COMTIMUJ 

nx-xx-j 

*x»o 

H19L9+1 
H2"L9*L8 
BO  50  J»ni,M2 
hz»mz*ns(j) 

CONTIMOI 

■STUB! 

«»D 

POITBAB 

***BUBBOUtIBB  MPAT  - TO  CALCULATE  NORMALIZED  BADXATXO*  PATTERN 
SUBROUTINE  NPAKAHAX.AIT.AINT.I) 

COHMOM  X.T.X.XI.T 1.Z1,H0.KS,rP,AK,IG,MN,MB, AC,BC,Xl, AltBA/BBQ 
1 4G*EL,TRAMZL, AMTEL.DTA,ETA.D8M,lrP,irT,IBG 

DIMENSION  X(200),X(200).Z( 200 ).X1  (2001.11  (200) «zi( 230 )• 

1 HO(200).MS(200).AC(SOO)iBC(500).AZ(361).XT(20).BNG(6) 

•**XMCPEASC  ATH  IRON  0 TO  AXT.  THE  ANGLE  RANOB  OP  RADIATION 
••♦PATTERN  CONCERNED 


X-0 

ATH— AIHT 

ATH«ATH*AINT 

X»X*1 


USAOiP 


VSANPA 


i 
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•♦•NORMALIZE  THE  RADIATION  PATTERN 


1210* 
1229* 
1230 
12U0 
1250 
1260 
1270  252 
1280* 
1290* 
UOO* 
1310  259 
1320 

1330*259 
1390 
1350  08 
1360 
1370 
1380$ 
1390* 
1900* 
1910* 
1920 
1930 
1990 
1950 
I960 
1970 
1980* 
1990* 
1500* 
1510 
1520 
1530 
1590 
1550 
1560 
1570 
1580  10 
1590 
1600 
1610  20 
1620 
1630 
169Q 
1650 
1660* 
1670 
1660  35 
1690* 
1700* 
1710* 
1720* 


PH»AZ(I)/AMAX 

IrJPH.tT. 1.E-5J  SO  TO  252 

PCB-20.*AtOG10(PH) 

SO  TO  259 
PDB«-1000. 

•••PRINT  OUT  THE  NORMALIZED  RADIATION  PATTERN 

NRITE  ( 6,88)  ATH.FM.FDB 
VRITE(2)3. 3, ATH.FM.FDB 
VRITE(2#88)ATH,FH,PDB 
IF(ATH.IE,AIT*.001-AINT)  SO  TO  10 
FORNAT(F5.0,F10.9,F10.2) 

RETURN 

end 

FORTRAN 

•••8UBROUTINE  PAID  - TO  CALCULATE  PATTERN  DISTRIBUTION 
SUBROUTINE  PATD(DPER'IDB.NPP) 

COHHON  X. Y,Z.X1,T1,Z1,HC,NS,FP,AK,IG,NN,NB,AC,8C,lT,AZ*NA,AH0 
1 tGREl,TRANEL.ANTEL,DTA,BTA«DBn,IFF.IFT,XRS 

DIMENSION  X(200).Y(200).Z(200>.HO(200).NS(230)#AC<500)* 

A RNG(6>.X1{200>.Y1(200),Z1(200).IT(20),AZ<361),EC(500) 

NX-NFP-1 

••♦RE-ORDER  At  IN  INCREASING  MAGNITUDE 

DO  20  1-1, NX 
EHAX-0. 

X»I 

Do  10  J»I , NX 

XF(AZ( J) .LE.BHAX)  GO  TO  10 
BHAX-AZ(J) 

R-J 

CONTINUE 
AX ( K ) *AZ ( I ) 

AZtD-BKAX 

CONTINUE 

NDIV-100./DPEB 

ANDIV-NX-1 

ND*NDIV*2 

AKD>ND-2 

NRITE (2,25) 

WRITE ( 6,25) 

FORMAT! ///'  PATTERN  DISTRIBUTION'//) 

***IDB«-1  :x,mag 
••*IDB«0  iX.MAG,  DB 
•••IDB-1  JX.DB 


USAPAD 
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31730* 

3 1 ? u 0 

31750* 

31760 

31770* 

31780 

31790* 

31800  55 

31810  65 

31820  73 

31830* 

318U0* 

31850* 

31850 

31870 

31880 

31890 

31900 

31910 

31920 

31930 

319U0 

31950 

31960 

31970 

31980 

31990 

32000 

32010 

32020 

32030  35 

320UO  38 

32050* 

32060 

32070* 

32080 

32090* 

32100  #0 

32110  50 

32120  60 

32130  70 

3211*0 

32150 

321609 


Xr(IDB.EQ.-l)  W8ITE ( 6, 55 ) 
IPdDB.Ea.-l)  WRITE  d • 55  ) 
lFdOB.EQ.0)  VRITE<6,65) 
irdDB.EjJ.O)  WRITE ( 2 » 65 ) 
Xr(IOB.EO.I)  VRITE(6,75) 
ir(IOB.Ea.l)  WRITE{ 2, 75 ) 

FORMAT ( ' X NAG') 

format  ( * x bag  (OBD 

fORMATC  X (OB)*) 

••♦CALCULATE  PERCENTAGE  Pt  MAGNITUDE  0 
PP-DPER*AND 

Xr(PP,GT. 99,99)  ND-ND-1 

DO  UO  J»1,ND 

AJ-J-1 

A«DPER*ANDXV*.01»AJ*1. 

NP-A 

NQ*NP*1 

B«NQ 

P»DPER*AJ 

XP(P.GT. 100,01)  P-100, 

P»(AZ(NP)-AZ(NQ))*(8-A)*AE(N0) 

G-P/AZM) 

XP<P.GT, 100.01)  G-0, 

Ir(J.EO.I)  G*  1 . 
lP(G,GE,1.E-5)  GO  TO  35 
B»-100. 

GO  70  38 
H*20 , * ALOG 10 ( 0 ) 

Ir(lDB.EQ.-l)  WRITE (6,50)  P,G 
IP ( IDS , EQ , • 1 ) WRITE (2*50)  P#G 
Xr(IDB.EO.O)  WRITE ( 6,60)  p.G.H 
IE ( IDB , Eq, 0 ) WRITE ( 2,60)  P,G,H 
IP ( IDB , EQ, 1 ) WRITE (6,70)  ptH 
IfdDB.EQ.I)  WRITE  ( 2,70)  P,H 
CONTINUE 

POR’1AT(P6.1,r9.3) 
roRMAT(r6.i,r9,3,Pi0.2) 
fOANAT(F6, 1.E10.2) 

RETURN 
End 

endedit 


! 
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Program 

cross-reference 

FILEDIT  NAME 

DECK  NAME 

SYMDEF 

LNKMNA 

LINKMN 

LINKMN 

LNKM1A 

LINKM1 

LINKM1 

LNKM2A 

LINKM2 

LINKM2 

LNKM3A 

LINKM3 

LINKM3 

DSTRTP 

originally  changed  to  DSTPLT 

DSTRP1 

PPLOT 

PPLOT 

Y.LABL 

LABEL 

LABEL 

YSFUTL 

YSFUTL 

CALLTS  and  others 

PACK 

PACK 

UNPACK  and  others 

DIMXXX 

DIMXXX 

USAMAI 

MAIN 

MAIN 

USAPAT 

PATT 

PATT 

u'SAFUN 

FUN 

FUN 

USAELE 

ELE 

ELE 

USAELK 

ELK 

ELK 

USAPXY 

PXYZ 

PXYZ 

USAQZP 

QZP 

QZP 

USANPA 

NPAT 

NPAT 

USAPAD 

PATD 

PATD 

120 


1 


APPENDIX  III  - GLOSSARY 

Adjustable  dimensions  A facility  of  the  FORTRAN  language  which  allows  the 

size  of  an  array  to  be  defined  in  a given  routine 
and  then  passed  to  subordinate  routines  via  the  argu- 
ment list,  eliminating  the  need  to  define  the  size 
of  the  array  again  in  each  of  the  subordinate  rou- 
tines. Thus  the  dimensions  of  an  array  in  a sub- 
routine may  be  varied  without  actually  modifying 
the  subroutine  itself. 

DD02 , p.  2-16  thru  2-17 

ASCII  A particular  standardized  system  which  assigns  cer- 

tain binary  bit  patterns  as  representations  for  a 
set  of  graphic  and  control  characters;  these  bit 
patterns  are  used  internal  to  data  processing  equip- 
ment when  the  strings  of  symbols  they  represent  are 
to  be  stored,  transmitted,  or  manipulated.  ASCII  is 
one  of  the  two  native  character  sets  of  the  Honey- 
well 600/6000  series  computers  (see  also  BCD)  and 
may  be  accepted  by  programs  written  in  the  FORTRAN 
language  on  these  machines.  There  are,  however, 
certain  pieces  of  software  associated  with  FORTRAN 
which  exist  in  two  mutually  exclusive  forms,  each 
designed  to  be  compatible  with  a particular  charac- 
ter set.  As  a result,  it  is  sometimes  necessary  to 
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specify  which  of  the  two  character  sets  is  to  be 
used;  it  may  not  be  possible  to  use  both  character 
sets  within  a given  program.  There  are,  in  addition, 
some  routines  designed  to  automatically  convert 
characters  of  one  set  to  those  of  another  set;  it  may 
be  possible  or  necessary  to  specify  the  use  of  these 
routines  for  certain  applications. 

DD02 , p.  3-28  thru  3-29,  A-l  thru  A-3 
DD07,  sections  I and  IX 
DD20,  sections  II  and  III 

BATCH  One  of  the  two  major  environments  in  which  a program 

may  execute  on  these  computers  (see  also  timesharing). 
A batch  job  generally  does  not  interact  directly 
with  a user  at  a remote  terminal;  it  is  not  monitored 
or  serviced  by  the  TSS  Executive;  and  it  is  not  sub- 
ject to  certain  constraints  imposed  upon  jobs  which 
do  execute  under  the  TSS  Executive.  Since  batch  pro- 
grams are  monitored  and  serviced  by  GCOS  rather  than 
by  the  TSS  Executive,  some  functions  which  can  be 
performed  in  the  timesharing  environment  cannot  be 
performed  in  the  batch  environment,  and  vice  versa; 
in  addition,  the  way  in  which  certain  functions  are 
accomplished  varies  depending  upon  the  environment. 

As  in  the  case  of  character  set  differences  (see 
ASCII  above),  there  exist  two  mutually  exclusive 
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versions  of  certain  pieces  of  software,  each  designed 
to  work  in  a particular  environment.  This  may  again 
necessitate  specification  of  the  environment  in  which 


the  program  will  operate;  it  may  not  operate  in  the 
same  fashion  in  a different  environment. 

DD07,  sections  I and  IX 
DD20,  sections  II  and  III 

BCD  A system  by  which  a set  of  graphic  symbols  may  be 

represented  as  a string  of  binary  bits.  This  is  one 
of  the  two  representation  systems  native  to  the  Honey- 
well 600/6000  series  computers  (see  also  ASCII) . 

DD02,  p.  3-28  thru  3-29,  A-l  thru  A-3 
DD07,  sections  I and  IX 
DD20,  sections  II  and  III 

Binary  file  A file  which  has  been  created  by  a binary  write 

statement  or  other  process  which  does  not  employ  for- 
mat conversion.  Such  files  will  often  contain  infor- 
mation in  its  internal  binary  representation,  and  do 
not  usually  contain  character  information  such  as 
headings,  textual  messages,  or  spaces  between  data 
items.  Binary  files  are  used  primarily  where  data 
will  be  used  as  input  to  another  program  and  will  not 
ordinarily  be  examined  by  a human  being.  The  informa- 
tion is  in  a form  which  is  readily  machine-readable 
and  which  does  not  require  conversion  from  its 


Binary 


Buffer 


external  format  to  the  internal  binary  format  of  the 
machine;  it  is  not  readily  human-readible  (see  also 
formatted  file) . 

DD02 , p.  5-14 
DD20,  p,  2-4  thru  2-8 

number  Numbers  are  generally  converted  from  their  external, 

human-readable  form  (a  string  of  characters)  into  a 
binary  form  which  is  more  convenient  for  internal 
arithmetic  manipulations.  The  format  of  this  inter- 
nal representation  is  detailed  in  the  reference. 

BN86,  p.  1-20  thru  1-28 

In  order  to  improve  the  efficiency  of  I/O  operations, 
data  transmitted  to  or  from  an  I/O  device  is  accumu- 
lated in  an  arbitrarily-chosen  area  of  memory  referred 
to  as  a buffer.  When  data  is  being  transferred  to  a 
file  (a  WRITE  operation),  data  is  accumulated  in  the 
buffer  until  the  buffer  becomes  full;  the  data  is 
then  written  to  the  I/O  device  (called  "flushing"  the 
buffer)  and  the  process  repeats.  Because  of  this 
buffering  process,  it  is  sometimes  necessary  to  take 
explicit  action  to  "flush"  a buffer  or  "close"  a file, 
a process  which  includes  flushing  the  buffer  and 
marking  the  end  of  the  data  just  written  on  the  I/O 
device.  These  flushing  and  closing  operations 
transfer  the  last  portion  of  data  from  the  buffer  to 
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the  I/O  device,  so  that  the  information  of  the  I/O 


device  is  complete  and  up  to  date. 

DD07,  section  VI 

DD20,  p.  2-37  thru  2-38,  2-44  thru  2-50 


CALLS S 


CALLSS  is  a mnemonic  for  a function  performed  by 


the  TSS  Executive.  The  mnemonic  is  used  in  con- 
junction with  the  DRL  machine  operation,  which 
causes  a transfer  of  control  to  the  TSS  Executive, 
which  then  preserves  the  state  of  the  program  which 
executed  the  DRL  CALLSS  and  invokes  the  specified 
timesharing  subsystem  on  the  program's  behalf.  Upon 
termination  of  the  subsystem,  the  TSS  Executive 
reinstates  the  suspended  program. 

DD17 , p.  3-9 


CARDIN 


A timesharing  subsystem  which  facilitates  spawning 


of  batch  jobs  from  timesharing, 
DD21,  section  II 


DOMDECK 


A compressed  source  deck.  The  format  is  basically 


that  of  the  corresponding  source  deck,  but  with  most 
of  the  blanks  removed.  Control  information  is  added 
to  allow  the  deleted  blanks  to  be  reinserted;  iden- 
tification and  error  detection  data  is  also  added. 
BN86,  p.  2-5  thru  2-6 


Command  Loader 


A timesharing  subsystem  capable  of  restoring  and 


placing  in  execution  properly  prepared  programs  in 
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H*  format.  The  command  loader  is  invoked  whenever 


COMMON 


Control  Card 
Deck  Name 


a system-selection  or  build-mode  command  is  not 
recognized  as  being  valid  by  the  TSS  Executive. 

DD17 , p.  5-1  thru  5-3 

Blank  COMMON  will  normally  be  loaded  just  above  the 
batch  slave  prefix,  starting  at  location  100  octal. 
If,  as  in  the  case  of  a job  which  is  to  execute  in 
timesharing,  blank  COMMON  must  be  relocated, 
several  methods  are  available.  These  are  discussed 
in  the  loader  manual.  Labeled  COMMON,  on  the  other 
hand,  is  loaded  in  the  same  area  as  the  program 
instructions.  It  is  not  usually  necessary  to  take 
extraordinary  action  to  specify  the  size  or  location 
of  labeled  COMMON  (but  the  loader  has  facilities  for 
this  should  it  be  required). 

DD02,  p.  4-13  thru  4-14 
DD10,  sections  II  thru  IV 
See  JCL 

The  name  punched  in  columns  73  thru  80  of  a COMDECK 
or  an  OBJECT  DECK.  This  name  comes  from  the  LBL 
pseudo-operation  of  a GMAP  program,  or  from  the 
initial  COMMENT  card  of  a FORTRAN  program  or  from 
its  initial  SYMDEF,  in  the  absence  of  an  initial 
SYMDEF,  in  the  absence  of  an  initial  COMMENT.  This 
name  appears  at  the  top  of  each  page  of  a FORTRAN 
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DRL 


DRLSAV 


Entry  point 


compilation  listing  following  the  word  LABEL,  and 
appears  on  the  $ OBJECT  card  of  the  object  deck 
resulting  from  the  compilation  or  assembly.  This 
$ OBJECT  card  may  be  printed  out  in  subsequent 
activities  which  use  the  object  deck. 

BN86,  p.  6-12 
DD02 , p.  2-4 

(Pronounced  DERAIL.)  A machine  instruction  which 
causes  a program  interruption.  When  this  instruc- 
tion is  executed  by  a timesharing  program,  the  TSS 
Executive  gains  control  of  the  CPU  and  interprets 
the  interruption  as  a request  for  service.  The 
exact  nature  of  the  service  is  specified  by  infor- 
mation accompanying  the  DRL  instruction. 

BN86 , p.  1-15  thru  1-20,  4-118 
DD17,  p.  3-6  thru  3-54 

A particular  function  associated  with  the  DRL  in- 
struction. Saves  a program  on  a disk  file  in  H* 
format . 

DD17 , p.  3-23  thru  3-24 


A point  at  which  execution  of  instructions  within 
a particular  routine  is  to  begin.  A given  routine 
may  have  one  or  more  entry  points,  usually  defined 
by  a SYMDEF.  When  a program  is  loaded  by  GELOAD, 
CALL  statements  are  linked  with  the  corresponding 
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entry  points,  and  a single  entry  point  for  the 


FDUMP 


File  Control 


program  as  a whole  is  determined.  This  will 
usually  be  the  beginning  of  the  main  program,  which 

has  an  implied  entry  name  of  six  dots  ( ). 

When  an  H*  file  is  created,  the  entry  point  for 
the  element  that  is  saved  on  the  file  is  written  to 
the  file,  so  that  execution  can  be  initiated  at  the 
proper  location  when  the  element  is  restored. 


BN86, 

P- 

6-27  thru  6-27, 

6-63  thru  6-67 

DD02 , 

P- 

4-30,  4-37  thru 

4-39,  4-60  thru  4-61 

DD10, 

P- 

4-1 

DD31 , 

P- 

2-39 

A timesharing  subsystem  which  allows  the  user  to 
examine  or  modify  a disk  file  in  its  entirety,  re- 
gardless of  the  content,  format,  or  characteristics 
of  the  file.  The  contents  are  displayed  in  octal. 
DD21,  section  IV 

Block  A group  of  words  located  in  an  arbitrary  section  of 

the  user's  memory  space,  used  by  GFRC  to  record  the 
characteristics  and  status  of  a file  on  an  I/O 
device.  There  is  one  file  control  block  for  each 
file  used  by  a given  program. 

DD07,  section  IV 
DD10,  section  XI 

DD20,  p.  2-37  thru  2-38,  2-44  thru  2-50 
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FILEDIT 


FILFDIT  Nam.- 


Formatted  file 


A batch  mode  system  program,  capable  of  invoking 
various  compilers,  for  creating,  maintaining,  list- 
ing and  retrieving  source  and  object  program 
libraries. 

BJ71,  all  sections 

The  name  which  appears  in  columns  73  thru  80  of  the 
$ language  card  ($  GMAP,  $ FORTRAN,  etc.)  preceding 
each  source  program  deck.  This  is  the  name  used  by 
the  source  file  editor  (FILEDIT)  to  access  source 
programs  (the  object  file  editor  portion  of  FILEDIT 
uses  the  DECK  NAME  from  the  $ OBJECT  card).  Note 
that  the  FILEDIT  NAME,  DECK  NAME,  and  SYMDEF  of  a 
program  are  not  necessarily  the  same;  the  FILEDIT 
NAME  is  used  throughout  this  document  to  refer  to 
the  individual  programs  of  the  DISTORT  system. 

BJ71,  sections  VII  thru  XIII 

A file  which  is  subjected  to  format  conversion,  in 
contrast  to  a BINARY  FILE.  A formatted  file  con- 
tains information  in  the  form  of  a string  of  char- 
acters; before  this  information  can  be  used  by  the 
computer,  it  must  undergo  format  conversion,  in 
which  numeric  data,  represented  on  the  file  as  a 
string  of  numeric  characters,  decimal  points,  and 
exponent  designators,  is  converted  to  an  equivalent 
internal  binary  representation  (see  BINARY  NUMBER) . 
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The  opposite  conversion  must  be  performed  when  the 
data  is  written  to  the  file,  along  with  the  addition 


of  information  to  control  the  carriage  of  the  line 
printer  or  remote  terminal  printer. 

DD02,  p.  5-14 

DD20,  p.  2-12  thru  2-16,  2-39  thru  2-40 

FORTRAN  Library  Any  of  the  numerous  subroutines,  called  either  ex- 

Routlne  plicitly  or  implicitly,  which  perform  various  ser- 

vices for  the  FORTRAN  program.  Many  of  these  rou- 
tines in  turn  make  use  of  library  routines  which 
make  up  GFRC,  or  they  may,  directly  or  indirectly, 
utilize  the  services  of  the  operating  system  (GCOS 
and/or  the  TSS  Executive). 

DD02,  p.  6-11  thru  6-49 
DD20,  all  sections 

GCOS  An  operating  system  which  monitors  the  operation  of, 

and  provides  services  to,  all  jobs  operating  in  the 
batch  environment.  In  the  case  of  the  RADC  machine, 
GCOS  is  subordinate  to  another  operating  system 
called  MULTICS.  MULTICS  monitors  and  services  GCOS, 
much  as  GCOS  monitors  and  services  batch  programs, 
and  in  so  doing  provides  better  security  measures 
than  those  afforded  by  GCOS  alone.  MULTICS  is  not 
used  on  the  AFCS  H6060. 

DD19,  all  sections 
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GELOAD 


The  main  loader  for  Honeywell  600/6000  series 
machines.  It  is  invoked  in  batch  by  the  $ EXECUTE 
card;  its  input  consists  of  object  decks  and  control 
cards  which  modify  the  loading  process  or  pass  in- 
formation to  the  loader;  its  primary  output  is  a 
program,  linked  and  relocated,  ready  for  execution. 
GELOAD  also  produces  a memory  map  to  indicate  where 
various  programs  have  been  loaded  in  core;  GELOAD 
may  be  used  to  create  H*  files. 

DD10,  all  sections 
General  Loader  See  GELOAD. 

GERSTR  A particular  function  associated  with  the  MME 

instruction.  Causes  a program  saved  on  a file  in 
H*  format  to  be  restored  (placed  back  in  core) . 

DD19,  p.  4-52 

GESAVE  A particular  function  associated  with  the  MME 


instruction.  Saves  a program  on  a disk  file  in  H* 
format . 

DD19,  p.  4-53 
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program  in  core  and  executing  it  at  some  later  time. 
A program  which  resides  on  an  H*  file  has  already 
been  loaded,  relocated,  and  linked  by  GELOAD;  thus 
the  program  appears  on  the  H*  file  as  an  exact  image 
of  the  program  as  it  will  appear  in  core.  The  file 
contains  only  the  minimum  amount  of  control  infor- 
mation necessary  to  restore  the  program  (place  it  in 
core)  and  initiate  its  execution.  An  H*  file  is 
created  by  a MME  GESAVE  or  DRL  DRLSAV ; GELOAD  can  be 
used  to  accomplish  the  MME  GESAVE.  The  file  upon 
which  the  links  of  a linked  or  overlayed  program 
are  saved  is  an  H*  file. 

8S18,  Appendix  B,  Random  Storage  Format 
DD10,  section  VIII 

HIGHLOAD  A mode  of  operation  wherein  GELOAD  places  the  in- 

structions and  data  in  the  highest  address  locations 
of  the  memory  segment  specified  by  the  $ LIMITS  con- 
trol card.  Any  unused  space  will  then  be  at  the 
lower  address  locations.  This  is  the  normal  mode 
of  operation  for  GELOAD. 

DD10,  section  II 

JCL  Tob  control  language.  This  is  a term  borrowed  from 

IBM,  and  refers  to  the  card  images  which  define  the 
attributes  of  a batch  job  to  the  operating  system 
and  to  any  other  system  programs  which  require  this 
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* 1 0 • 


information.  On  the  Honeywell  600/6000  series 
computers,  these  card  images  are  defined  by  the 
presence  of  the  character  $ in  the  first  column; 
blanks  in  the  second  thru  seventh;  a verb  beginning 
in  column  8;  and  any  applicable  options  beginning 
in  column  16. 


DD31,  all  sections 


Linking  loader 


See  GELOAD.  So  called  because  separate  subroutines 


are  linked  together  during  the  loading  process, 
wherever  a correspondence  exists  between  the  name 
of  an  entry  point  and  the  name  used  in  a function 


or  subroutine  call. 


DD10,  all  sections 


Loader 


See  GELOAD 


LOWLOAD 


A mode  of  operation  wherein  GELOAD  places  the 


instructions  and  data  in  the  lower  address  locations 
of  the  memory  segment  specified  by  the  $ LIMITS 
card.  See  also  HIGHLOAD. 


DD10,  section  II 


Master  Mode 


A mode  of  operation  available  to  the  Honeywell 


600/6000  series  CPU  wherein  a program  can  exercise 
maximum  control  over  the  system  hardware,  accessing 


any  portion  of  memory  physically  present  and  opera- 
ting any  I/O  device.  This  mode  of  operation  is 
used  only  by  the  operating  systems  and  a restricted 


sec  of  system  programs;  user  programs  operate  in 
SLAVE  MODE,  wherein  the  segment  of  memory  which 
can  be  accessed  is  limited,  and  certain  machine 
instructions  relating  to  I/O  and  system  control  are 
rendered  inoperable.  This  protects  the  operating 
system  and  other  user's  programs  and  data  from 
inadvertent  or  malicious  misuse  or  destruction. 

BN86 , p.  1-5 

DD19,  p.  1-4  thru  1-5,  section  IV 

Memory  layout  Reference  shows  the  physical  position  of  various 

items  in  the  user's  memory  space. 

DD10,  section  II 
DD19,  section  V 

MME  A machine  instruction  which  '■juses  a program 

interruption.  When  this  instruction  is  executed  by 
a batch  program,  GCOS  gains  control  of  the  CPU  and 
interprets  the  interruption  as  a request  for  ser- 
vice. The  exact  nature  of  the  service  is  specified 
by  the  information  accompanying  the  MME  instruction. 
BN86,  p.  1—1 5 thru  1-20,  4-117 

DD19,  section  IV 

* • 

Object  deck  A card  deck,  or  image  of  that  deck  on  a disk  or 

tape  file,  which  is  the  primary  output  of  a com- 
piler or  assembler.  Consists  of  machine  language 
instructions  and  data  which  make  up  a program. 
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PSEUDO 


Random 


along  with  Identification  and  error  detection 
information,  and  control  information  which  allows 
GELOAD  to  properly  load,  relocate,  link,  and 
initiate  execution  of  the  program. 

BN86 , p.  2-4  thru  2-7 
DD10,  sections  II  and  III 

A particular  function  associated  with  the  DRL 
instruction.  Causes  data  to  be  copied  from  the 
user's  memory  into  the  keyboard  input  buffer  main- 
tained by  the  TSS  Executive,  thereby  simulating 
input  from  the  keyboard  of  a remote  terminal. 

DD17 , p.  3-20 

library  A random  disk  file  containing  a collection  of 

frequently  used  programs.  A random  library  is 
created  by  the  program  RANLIB  and  is  used  as  input 
to  GELOAD.  The  random  library  contains  essentially 
the  same  information  as  the  collection  of  object 
decks  from  which  it  was  created,  but  in  a slightly 
different  format  and  with  the  addition  of  a 
directory  to  aid  in  locating  the  required  object 
deck.  When  a random  library  is  supplied  to  GELOAD, 
the  directory  of  the  library  file  is  searched  at 
certain  times  to  find  programs  which  are  required 
but  which  have  not  been  loaded  previously. 

DA97,  section  III 
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DD10,  section  V 


RANLIB 


RESTOR 


Save  name 


A program  which  generates  random  libraries. 

DD42,  section  III 

A particular  function  associated  with  the  DRL 
instruction.  Causes  a program  saved  on  a file  in 
H*  format  to  be  restored  (placed  back  in  core) . 
DD17,  p.  3-21  thru  3-22 

The  name  used  to  save  or  restore  a program  on  an  H* 
file.  This  name  must  be  specified  whenever  a MME 
GESAVE,  MME  GERSTR,  DRL  DRLSAV,  or  DRL  RESTOR  is 
used;  some  other  means  of  restoring  a program  from 
an  H*  file,  such  as  the  COMMAND  LOADER,  may  or  may 
not  require  the  use  of  a save  name.  The  save  name 
is  used  primarily  to  distinguish  between  program 
elements  when  more  than  one  program  element  is 
saved  on  a single  H*  file. 

DD02 , p.  3-14,  3-22  thru  3-25,  6-43 
DD10,  section  VII 


DD17 , 

P- 

3-21  thru  3-24, 

5-1  thru  5-5 

DD19, 

P- 

4-3  thru  4-4,  4 

-52  thru  4-53 

DD20, 

P- 

3-11  thru  3-12 

DD31 , 

P- 

2-130 

The  $ SELECTA  card  image  causes  CARDIN  to  insert 
the  contents  of  the  file  specified  in  the  variable 
field  into  the  JCL  stream  at  that  point,  when  a 


F 


•*^T 


Slave  prefix 


batch  job  is  spawned  from  timesharing  via  CARDIN. 
Note  that  this  is  somewhat  different  from  the 
$ SELECT  card. 

DD21 , p.  2-16 

An  area  in  locations  0 thru  77  octal  (0  thru  143 
octal  in  timesharing)  of  the  user's  memory  space 
which  is  reserved  for  the  use  of  the  operating 
system.  It  is  used  to  communicate  between  the  user 
program  and  the  operating  system,  and  portions  of 
this  area  may  be  used  as  temporary  storage  by  the 
operating  system. 

DD10,  section  II 
DD17,  p.  3-1  thru  3-3.2 
DD19,  section  V 

A program  which  operates  in  slave  mode  as  opposed 
to  master  mode.  User  programs  operate  in  slave 
mode . 

DD19 , p.  1-4  thru  1-5,  4-1 

Symbol  definition.  A SYMDEF  defines  the  name  and 
location  of  an  entry  point  or  data  area,  so  that 
this  location  can  be  referenced  by  a separately 
compiled  or  assembled  program.  SYMDEFs  are  gener- 
ated primarily  by  compilers  and  assemblers,  and  are 
placed  in  object  decks  to  enable  GELOAD  to  perform 
the  linking  process. 
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System  standard  format 


Timesharing 


TSS  Executive 


Unformatted  file 


BN86 , 

P- 

6-27 

thru  6- 

•28,  6-63  thru  6-67 

DD10, 

P* 

4-1 

DD31 , 

P- 

2-39, 

2-196 

thru  2-197 

A particular  format  used  by  GFRC  for  recording  data 
on  an  I/O  device.  Most  sequential  files  are 
recorded  in  system  standard  format. 

DD02 , p.  3-29 
DD07,  p.  3-1  thru  3-3 

A system  which  allows  interactive  use  of  a com- 
puter by  several  users  at  once;  see  also  TSS 
Executive  and  BATCH. 

DD22,  all  sections 

A sub-operating  system  which  operates  subordinate 
to  GCOS,  performing  basically  the  same  functions 
as  GCOS,  but  tailored  to  a timesharing  environment. 
DD17,  all  sections 
DD22,  all  sections 
See  BINARY  FILE. 
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